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PREFACE 



This publication is intended for users of 
the IBM 1130 Computing System. IBM 1130 
RPG is a problem-oriented language designed 
to provide users with an efficient, easy-to- 
use technique for generating programs that 
can: 

1. Obtain data records from single or 
multiple-input files, 

2 . Perform calculations on data taken from 
input records or RPG literals , 

3. Write printed reports, 

4. Use table lookup, 

5. Exit to a user's subroutine written in 
a language other than RPG, 

6. Branch within the calculations, and 

7. Sequence-check input records. 

RPG uses a set of specifications sheets 
on which the user makes entries. The forms 
are simple, and the headings on the sheets 
are largely self-explanatory. 

Although many reports use only one input 
file, RPG can combine data from multiple 
input files to create a report. The output 
may be a single report, or it may be several 
reports created simultaneously on different 
devices . 
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INTRODUCTION 



This publication provides the information 
required to use the disk resident EPG for 
the IBM 1130. 
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P£6£eayisites 

The reader must be familiar with the opera- 
tion of the components of his 1130 system 
and with basic programming concepts. For 
titles and abstracts of associated publica- 
tions, refer to the IBM 1130 Bibliography. 

ISchine_Ee3uirements 

The minimum machine requirements for 
generating an EPG object program are as 
follows: 

• 81:92 words of core storage 

• One card-reading device 

• One IBM 2315 Disk Cartridge 

• one printer (IBM 1132, 1403, or console 
printer) . 

The minimum machine requirements for 
the execution of an EPG object program 
depend on the I/O configuration used: 

• 8192 words of core storage 

• Input/Output devices as required by the 
object program: 

IBM 1403 Printer 

IBM 1442-5 Card Punch 

IBM 1132 Printer 

IBM 2501 Card Eeader 

IBM 1442 Card Bead Punch 

IBM 2310 Disk Storage Drive, Model B1 and 
B2 



The following system features are sup- 
ported for program generation: 

• Up to 32,768 words of core storage 

• A card-punching device if the object pro- 
gram is to be punched 

• One printer with at least a 48-character 
set for program listings 

• One additional IBM 2310 disk unit. 



FUNCTION OF EPG 



When RPG is used, the IBM 1130 actually 
performs two separate functions: 

1. Program generation 

2. Program execution. 

In the first case, program specifica- 
tions defined by the programmer are used to 
produce machine-language instructions. 
Storage areas are automatically assigned, 
constants or other reference factors are 
included, and program routines for check- 
ing, for input/output operations, and for 
other functions are produced. 

In the second case, the machine- 
language instructions are combined with the 
input data files and both are processed 
through the system to produce the desired 
reports and output files. 



USING EPG 

The preparation of a report by means of EPG 
consists of the general operations illus- 
trated in Figure 1 and described as fol- 
lows. (The circled numbers in Figure 1 
refer to the numbers in the following 
text.) 

1. The programmer evaluates the report 
requirements to determine the format of 
the input files and the layout of the 
finished report. For example, he 
determines what fields in the input 
records are to be used, what calcula- 
tions are to take place, where the data 
is to be located in the output records 
and how many and what kind of totals 
must be accumulated. More specific 
information regarding the evaluation of 
report requirements is given in the 
section Problem Definition. 
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After the programmer has evaluated the 
requirements of the report, he provides 
the EPG program with information about 
these requirements. 



b. He states what processing is to be 
done (add, subtract, multiply, divide, 
etc.) by means of entries on a Calcu- 
lation Specifications form. 
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c. He defines the layout of the 
desired report (print positions, car- 
riage control, etc) . This is accomp- 
lished by making entries on the Output 
Format Specifications form. 

d. He describes all files used by the 
object program (input files, output 
files, table files, etc.) by making 
entries on the File Description Speci- 
fications form. 

e. If the programmer uses chaining 
files, record address files, or tables 
in his object program, he furnishes 
information about them through entries 
on the Extension Specifications form. 

After the specifications have been 
written on the appropriate forms, cards 
are key-punched with the data from the 
forms. Each line on the form is 
punched into one card. 

These punched cards (called a source 
deck) are combined with the EPG control 
card. The source deck and the control 
card are placed into a card-reading 
device and processed by the EPG compil- 
er under control of the Disk Monitor 
program. At the end of this processing 
run (referred to as the compilation 
run) , a program capable of preparing 
the report specified by the programmer 
has been produced and stored in the 
working storage area of the disk. 

This program, (known as the object pro- 
gram) contains all the machine instruc- 
tions required to prepare the desired 
report. 

The programmer may now have the object 
program punched into cards for storage 
or he may proceed directly to proces- 
sing of the object program by causing 
it to be made a part of the Disk Mon- 
itor System. 

The input files are then read into the 
system and production of the report 
begins. This is known as the object 
run. 



COMPATABILITY OF 1130 RPG FILE ORGANIZATI 
TO OTHER 1130 FILE ORGANIZATION METHODS 
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a. He describes his input (record 
layout fields used, etc) . This is done 
by making entries on the Input Specifi- 
cations form. 



1130 RPG uses its own unique file organiza-* 
tion techniques. Disk files not created by 
EPG cannot be processed by EPG. 



COMPATABILITY OF 1130 RPG TO OTHER SYSTEMS 

The implementation of RPG for the IBM 1130 
System may differ in some respects with 
that of other systems. Check the following 
language features when considering compata- 
bility to another system. 

1. Halt indicators H1 through H9 are sup- 
ported by 1130 RPG. 

2. Matching record fields M1 through M9 
are supported by 1130 RPG. 

3. Chaining fields C1 through C3 are sup- 
ported by 1130 RPG. 

4. Calculation operations implemented for 
1130 RPG include the operations CHAIN, 
BEGSR, ENDSR, "eXSR, and EXCPT. 

5. Edit codes are supported by 1130 RPG. 

6. File Description Specification entries 
differ according to the devices used 
and the control program under which RPG 
is run. 

7. Blank/zero indicators are not initia- 



lized (set on) and are not reset on a 
Blank After condition. 

8. Reserved words under 1130 RPG are: 
ALTSEQ, PAGExx, TAByyy, and INxx where 
yyy and xx represent any alphameric 
characters. 

9. Exception output can be produced with 
1130 RPG. 

10. Number and type of files supported may 
vary. 

11. No checking for a valid sign will occur 
during the moving to numeric fields. 
Signs will be forced on all arithmetic 
operations. 

12. Additions to an indexed sequential file 
cannot be made during the program that 
is also retrieving that file. 

13. Packed data may only be specified on 
disk records. 

14. Numeric fields may be from one to 14 
digits in length. 
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FUNDAMENTALS OF RPG PROGRAMMING 



Although RPG programs can process files 
contained on magnetic disk, only card- 
input files are used for the introduction 
to RPG. Programmers familiar with the 
basic concepts of RPG may omit this sec- 
tion and concentrate on the detailed des- 
criptions contained in the section RPG 
Specification forms of this manual. " 



DEFINITION , OF TERMS 

The following is a definition of terms used 
in this publication as they apply to 1130 
RPG. 

EBCDIC Notation 

EBCDIC (Extended Binary Coded Decimal 
Interchange Code) is the 1130 machine code. 
It consists of 256 characters. (Refer to 
IBM 1130 Functional Characteri stic s , Form 
A26-5881.) 



appropriate column of any of the pertinent 
specifications forms, regardless of whether 
their contents are alphabetic, numeric, or 
alphameric. The contents of alphameric 
fields are placed into core storage in 
unpacked format. 

Numeric Fields 

All fields that have a decimal-positions 
specification in the appropriate column of 
any of the pertinent specification forms. 
The contents of numeric fields are placed 
into core storage in unpacked decimal for- 
mat. Numeric fields contain only numeric 
characters and possibly a plus or minus 
sign over the rightmost position. 

Alphameric literals may consist of any of 
the 256 EBCDIC characters. They must be 
enclosed in apostrophes ('). 



li£Mbetic_Characters 

Alphabetic characters include the 26 let- 
ters of- the alphabet, A through Z. 

Numeric Characters 

Numeric characters include the digits 
through 9. 

S£ecial_Characters 

All EBCDIC characters that are neither 
alphabetic nor numeric are referred to as 
special characters. 

Hexadecimal 



Numeric Literals 

Numeric literals may consist of the digits 
through 9, and may contain one decimal 
symbol and/or a plus or minus sign. Numer- 
ic literals must not be enclosed in 
apostrophes. 



FUNCTIONS_DESCRIBED 

This section shows how to describe files 
and records, and how to specify the most 
frequently used RPG functions. 



DESCRIBING THE FILES 



A number system using the equivalent of the 
decimal number sixteen as a base. 

Al2haieric_Fields 

All fields for which a decimal-positions 
specification has not been made in the 



In this example, the File Description Spe- 
cifications form illustrated in Figure 2 is 
used to furnish the RPG program with the 
required information about the files used 
in the job. 
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Figure 2. Example of File Description Specifications 
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The second line describes the output 
report on the printer. The in file-type 
indicates that the file is an output file. 



DESCRIBING A RECORD AND ITS FIELDS 

Entries on the Input Specifications form 
describe the data that is to be read into 
the system. 

l2L§l£i§ 

A detail labor file contains card records 
as shown in Figure 3. Three fields from 
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Figure 4. Input Specifications Form 



each card are to be read into storage. 
Field A is contained in columns 46-50, 
field B is contained in columns 56-60, 
field C is contained in columns 66-70 of 
each record. 

Each card that contains fields A, B, 
and C is identified by two distinct attri- 
butes: It must contain a digit 5 in column 
35 and no 11-punch in column 80. When 
these two conditions exist in the card re- 
cord, the record is valid; that is, it con- 
tains fields A, B, and C. 

Specifications: In Figure 4, the entries 
on the Input Specifications form that apply 
to this problem are circled and identified 
by numbers referring to the items in the 
text below. The remaining fields on the 
form are described later in the 
publication. 

1. Each file must be given a name. Each 
file name can be used to identify one 
file only. This file name must be the 
same as specified on the File Descrip- 
tion Specifications form. 

2. If several card types exist in a file, 
each card type must be identified by 
its particular card code. The identi- 
fying codes must be entered into the 
Record Identification Codes (columns 
2'i-41) of the Input Specifications 
fo r i. 

In this example, the card codes are 
specified by writing a 5 in Character 
(column 27) and a 35 in Position 



(columns 21-24) for the first code; and 
by writing an 80 in Position, a minus 
in Character, and an N in Not (column 
32) for the second code. The fields 
C/Z/D (columns 26 and 33) on the form 
indicate how the card code is to be 
compared: 

D = digit portion only. 

Z = zone portion only. 

C = zone and digit portions. 

After all the identification codes are 

established, the programmer assigns a 
two-digit number (from 01-99) to the 
card type identified. This code, known 
as a Record Identifying Indicator 
(columns 19-20), is used as a switch or 
selector. Whenever a card of the spe- 
cified type is being read, the asso- 
ciated indicator is turned on. If the 
card read is not one of the type speci- 
fied, the indicator is turned off or 
remains off. Thus, the programmer can 
use the indicator during processing as 
a selector or switch. The Record Iden- 
tifying Indicator is used wherever it 
is necessary to refer to the specific 
card type on other RPG specification 
forms. 

3. If the input card is to be placed into 
a stacker other than the one into which 
it would normally be selected, the 
stacker number is written in Stacker 
Select (column 42) . 

4. Each field of the card to be read must 
be defined as shown on the lines fol- 
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Calculation Specifications Form 



lowing the record identification line 
(columns 7-42) . The specifications 
shown in this example obtain the data 
from the input record and place it in 
fields A, B, and C in three separate 
locations in storage (named FLDA, FLDB, 
and FLDC) . The entries in Decimal 
Position (column 52) define the asso- 
ciated fields as numeric. 

The programmer need not know the actual 
location of these fields in core 
storage. Whenever reference is to be 
made to these fields on other EPG 
forms, the programmer writes only the 
appropriate field name. 

A field name may be alphabetic or 
alphameric; blanks and special charac- 
ters may not be used. The first 
character of a name must be alphabetic. 
A field name may not be more than six 
characters in length. 



ADD AND SUBTRACT (CROSSFOOT) 



Example 

In this example, the calculation A + B - C 
= D is to be performed. This operation is 
sometimes referred to as crossfooting. The 
contents of fields A, B, and C from the 
previous example are used to calculate the 
contents of a new field named FLDD. Figure 
5 shows the required entries. 



lEgc if ica tion s : The first line of the Cal- 
culation Specifications form causes the 
contents of field B (FLDB) to be added to 
the contents of field A (FLDA) and the 
result of this arithmetic operation to be 
placed in field D (FLDD) , thus replacing 
any previous information in this field. 

The second line of the Calculation Spe- 
cifications form causes the object program 
to subtract the contents of FLDC from the 
contents of FLDD, and to replace the con- 
tents of FLDD by the result of this 
subtraction. 

The numbers in the following text refer 
to the items circled in Figure 5. 

1. The 14 in Indicator (columns 9-11) spe- 
cifies the condition under which the 
calculations are to be performed. This 
number was assigned as the Record Iden- 
tifying Indicator on the Input specifi- 
cations form (see Figure 4) . 

2. The card columns for FLDA, FLDB, and 
FLDC were defined on the Input specifi- 
cations form. These fields are 
referred to on the Calculation Specifi- 
cations form by their names. 

3. The result field FLDD is defined for 
the program by writing the name FLDD in 
Result Field (columns 43-48) and indi- 
cating in Field Length (columns 49-51) 
the number of positions that must be 
reserved for this field in core 
storage. Just as in the case of FLDA 
and FLDB, which were defined on the 
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input form, the name FLDD can now be 
used in other calculation operations or 
in output specifications. 
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A set of values for these fields might 
appear in the program as follows. 



FIELD 

A 
B 
C 



DECIMAL CONTAINED 
POSITIONS IN CAHD 



000126 
201123 
304264 



ACTUAL 
VALUE 

126. 
11.23 
4.264 



If, as in Figure 5, the programmer had 
specified three decimal positions for the 
result field in Decimal Positions (column 
52) , the calculation A + B - C would result 



126.000 


= A 


+11.230 
137.230 


= B 


-4.264 


= C 


132.966 


= D 



The result 00132.966 is stored as the value 
of FLDD. 



DETAIL PRINTING 

The printing of information obtained from 
each record as it is read, is called Detail 
Printing. 

Examjale 

This example illustrates how the input 
fields FLDA, FLDB, and FLDC and the calcu- 
lated result (FLDD) can be specified for 
listing. 

S£§ c if icat i on s : Figure 6 shows the output 
specifications required. The numbers in 
the following text refer to the numbers 
circled in Figure 6. 
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Figure 6. Output-Format Specifications Form 



1. A filename must be assigned to the out- 
put listing. In this example it is 
named DAILYRPT. 

The D in Type H/D/T/E (column 15) indi- 
cates that the line to be printed is a 
detail line. (The other possible 
entries, H, T, and E are described 
later.) 

Space After (column 18) contains a 2 
and provides a double-spaced listing. 
(Each printed line is followed by one 
blank line.) 

2. The 14 in Output Indicator (columns 
24-25) governs the printing of the 
line. 

3. Each field to be printed must be speci- 
fied in Field Name (columns 32-37) . 

The Z in column 38 means that all zeros 
to the left of significant digits and 
the sign are not printed (suppressed) . 
For example, if the value 00126 is 
stored in FLDA, it is printed as 126. 
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Figures 3, 4, and 5 show how to read 
data into the system, how calculations can 
be performed upon the data, and how the 
original data and the data developed in the 
program can be printed. The examples so 
far have shown the items required to pre- 
pare a report. A significant item not yet 
described is the specification of control 
fields to obtain various totals. 



ESTABLISHING CONTROL FIELDS 

A field containing information to be com- 
pared from record to record is called a 
control field. A control break occurs when 
the information in the control field of a 
record is different from the information in 
the control field of the preceding record. 
A control level establishes the relative 
importance of the control fields. 



Fundamentals of RPG Programming 15 



Example 

This example illustrates the specification 
of three control levels. 



S^ec if ica t ion s : Figure 7 contains the spe- 
cifications shown in Figure 1 with the 
addition of the appropriate control data 
(the items inside the circle) . 
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Figure 7. Specifying Control Levels on the Input Specifications Form 
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Specifying Control Levels on the Calculation Form 



16 



However, in this example the numeric fields 
are specified as having no decimal 
fractions. 

This example shows three levels of totals: 

• The lowest level is the employee number 

(EMPNO) . 

• The next highest level is the department 
(DEPT) . 

• The highest level is division (D1VS0N) . 

These levels are designated by the con- 
trol level codes L1, L2, and L3 placed in 
columns 59-60. 

Up to nine control levels plus a final 
total can be used in EPG. Level 1 is the 
lowest control level; level 9 is the high- 
est. A control break at one level forces 
control breaks for all lower levels. 

To designate a control field and to 
establish a level of control on the Input 
Specifications form: 

• Enter the card columns of the field in 
Field Location (columns 44-51) . 

• Enter the appropriate name in Field Name 
(columns 53-58) . 

• Enter the correct control level (L1, L2,. 
..L9) in Control Level (columns 59-60). 



TOTAL CALCULATIONS 

When a control break occurs, certain spe- 
cial operations (called total operations) 
are normally performed before processing 
the record that caused the control break. 

Example 

This example illustrates the accumulation 
of totals at each control level. 

Specifications: Figure 8 shows calcula- 
tions that can be performed on the input 
data shown in Figure 7. The calculation 
examples specified in the first and second 



lines of Figure 8 are the same as in Figure 
5. The third line adds the result, which 
is contained in FLDD, to a field called 
TOTE. Thus, TOTE is the accumulated amount 
for each employee group. 

The operations specified in the first 
three lines are performed each time a 
detail card is read. 

When the level 1 (L1) control break 
occurs (i.e., a card containing a different 
employee number has been read) , specifica- 
tion line 04 adds the contents of TOTE 
(accumulated from each detail card) into a 
field named TOTF. This is used to accumul- 
ate the total for the employee group of 
each department. 

When the level 2 (L2) control break 
occurs (change in department) in addition 
to the previous calculation, the contents 
of TOTF are added to a field named TOTG. 

When the level 3 (L3) control break 
occurs, all three total calculations speci- 
fied with L1, L2, and L3 are performed. 



DETAIL AND TOTAL PRINTING 
Example 

This example shows the specifications 
required to print the following: 

• Three control fields. 

• The name. 

• The amount accumulated in FLDD. 

• The three accumulated totals (when a con- 
trol break occurs at level 1, level 2, 
and level 3) . 

• The final total at the end of the report. 

Sfiec if ica t ion s : Figure 9 illustrates the 
specifications required for the printed 
report shown in Figure 10. The numbers in 
the following text refer to the circled 
items in Figure 9. 
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Figure 9. Specifications on the Output-Format Specifications Form 



This information is similar to the spe- 
cifications in Figure 6. The 1 in 
Space After (line 06010, column 18) 
provides one space between the printed 
lines of the report; i.e., there are no 
blank lines between the printed lines 
of the report. 

The data fields named DIVSON, DEPT, 
EMPNO, NAME, and FLDD are specified for 
printing. 

The specifications to print the total 
for the first control level shewn on 
lines 7 and 8 are: 

a. The T in Type H/D/T/E (column 15) 
indicates that the line is a total 
line. 

b. The 3 in Space After (column 18) 
provides two blank lines after each 
total line to make the report easi- 
er to read. 

c. The level 1 indicator (L1) speci- 
fied in Output Indicator (columns 
23-25) indicates that the line is 
to be printed each time a level 1 
or any higher control break occurs. 



4. 



d. The field to be printed (TOTE) is 
indicated under Field Name (columns 
32-37) . 

e. The Z in Edit Codes (column 38) 
indicates that zeros to the left of 
significant digits and the sign are 
not to be printed. 

f. The B in Blank After (column 39) 
causes the core-storage positions 
containing the field TOTE to be set 
to zeros after the total has been 
transferred to the print line. 
This is done to avoid adding the 
total for one group to the total 
for the previous groups. 

The specifications to print the second 
and third control levels are essential- 
ly the same as those for the first 
level. 

The specifications for printing the 
final total contain the code LR (Last 
Record) in Output Indicators (columns 
23-25) . LR is turned on by the program 
at the end of the job. This indicator 
is used to cause the final total to be 
printed. At this time all ccntrol- 
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level indicators (L1-L9) are turned on 
and all total lines are printed in the 
specified sequence. 



DIVSON 




NAME 








DEPT 


EMPNO 
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0246 
0246 


011426 
011426 
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SMITH 


1 m 
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011426 
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001278 


JAMES 


176 
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0069 


001278 


JAMES 


160 
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0069 


001278 


JAMES 


164 

682 

1446 

1446 

3416 


— FINTOT 



GROUP PRINTING 



In group-printing operations, only one 
line is printed for each group of detail 
cards. This line usually contains the 
control fields and the totals of the 
quantity fields. An example of a group- 
printed report is shown in Figure 11. 
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Figure 11. Group-Printed Report 



The specifications for the detail- 
printed report shown in Figure 9 could be 
altered as illustrated in Figure 12 to 
provide a group-printed report. The dif- 
ference between Figure 9 and 12 is: 

1. The detail line specification in 
Figure 9 (line 06010) has been 
changed to a total line specification 
on an LI control break (Figure 12, 
line 06010) . 

2. The total line in Figure 9 (line 
06070) has been combined with the 
first total line 06010 of Figure 12. 



Figure 10. Detail Printed Report 
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Figure 12. Specifying a Group-Printed Report 
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3. The space-after specification on lines 
06090 and 06110 of Figure 9 has been 
changed in Figure 12 from three spaces 
to one space after printing. 



In group-indication operations, each detail 
card is processed. However, only the con- 
trol fields that identify the specific 
detail card are printed. 

Figure 13 shows an example of a group- 
indicated report. In this example, name 
and number of each employee are printed at 
each control change (level 1) . The fields 
for division and department are printed 
only when a control break occurs at L2 or 
L3, respectively. 



DIVSON EMPNO 



01120246011426SMITH 



011428JONES 



001430BROWN 



0310011296GEEEN 



011298BLAND 



01140069001262ADAMS 
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120 
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682 
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1446 
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-FIDD I 
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Figure 13. Example of a Group-Indication 
Report 



Figure 14 illustrates how the specifi- 
cation for the detail-printed report shown 
in Figure 9 could be altered to specify a 
group-indicated report. 



OVERFLOW PRINTING 

Overflow printing, another function used in 
preparing reports, can be performed by RPG . 
An overflow occurs when a punch in channel 



Fundamentals of RPG Programming 21 



IBM 



INTERNATIONAL IUSINESS MACHINES COtrO.ATION 

REPORT PROGRAM GENERATOR OUTPUT-FORMAT SPECIFICATIONS 

IBM System/360 



Punching 
Initrwction 


Graphic 
















Punch 

















form X243352 
PrlntMl In U. 5. A. 



71 76 7? 78 79 80 



Um 
3 4 3 


1 

I 

6 












a 

X 

| 

IS 


I 
1 

1A 


Space 


sup 


Output 
Indicators 


Fltld 
Nam* 

33 33 34 33 36 37 


1 

38 


s 

1 

■4 
* 

30 


Ind 
PmIiW 
In Output 
Uwrd 

40 41 42 43 


C 

! 

44 






















































Filename 

7 S « tO 11 1? 13 14 


5 

IT 


1 

11 


1 

19 » 


1 

21 2? 


And And 


Constant or Edit Word 


Sterling 

Sign 
Position 

71 77 73 7< 


1 

ft 24 13 


i 

36 27 21 


1 

20 30 31 


43 4d 47 41 49 SO 51 S3 S3 54 3 


S 36 37 SI 3V 60 61 62 63 64 65 64 67 68 69 70 


v.* 





Mii..y./?p.r 









£ 










J&\ 


























i r 













i e • 


















53 


1 










p.I.V.S.O.rV 






,,,f 






















































3(£ 

1 1^ 


o 










i i i 


















JJ 


" 










D.W. ■ 






..*.* 
























































»,',4 


o 










■ t i 


















11 












£/VJifi, 






, .1.7 
























































v.* 


c 




























32 












«AfiS , 






. .4 s 
























































v.,4 


o 










i i i 


















■ i 












FW, , 


z 




, >.f 
























































7 d 


o 




























.,1, i... 












i i I i i 






























































• 

1 1 


o 










i i i 




























































































t 
1 1 


o 










i — i — i i 


















— i — 1__ 


1 










iii-ii 






1 i i 


















































- 


1 1 





Figure 14. Specifying a Group-Indication Report 



12 of the carriage-control tape is 
encountered. 



Exanrple 

This example shows the specifications 
required to print eight column headings at 
the top of each printed form. Heading 
lines may contain information from an input 
record (e.g., the date) or constant infor- 
mation that is defined on the Output-Format 
Specifications form. 



Specifications: The output specifications 
required for this operation are illustrated 
in Figure 15. The numbers in the margin of 
the text refer to the circled numbers'in 
Figure 15. The filename (DAILYRPT) is the 
same as in the other specifications 
required for the report. 

1. On the first line of the form, the H in 
Type H/D/T/E (column 15) indicates that 
the line to be printed is a heading 
line. The 3 in Space After (column 18) 
provides two blank lines after each 
printed heading. The 01 in Skip Before 
(columns 19-20) causes the printer car- 
riage to skip to a punch in channel 1 
of the carriage-control tape before 
printing the line. 



The OF in Output Indicator (columns 
23-25) causes the heading line to be 
printed each time an overflow condition 
occurs. 

The indicator OF is specified on the 
File Description Specifications form 
for the device associated with the 
filename DAILYBPT. 

The indicator 1P is on only at the very 
beginning of an t!PG program. 

The letters OR on the second line 
(columns 14-15) of Figure 15 indicate a 
second condition that can cause the 
heading line to be printed. This is 
specified by means of the entry 1P in 
columns 23 and 25. The entry 1P is 
required to have the heading printed on 
the first page of the report because 
the overflow condition does not occur 
until after at least one page has been 
printed. 

The entries on lines 3-10 of Figure 
15 specify the actual or constant 
information to be printed in the 
heading of the report. Note that an 
apostrophe must be placed before and 
after each constant defined. 

The specifications for printing the 
contents of detail cards follow the 
last specifications for the heading 
line. 
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Figure 15. Specifications for Overflow Printing 



SUMMARY PUNCHING 



Example : In this example, a summary 
total of employee totals (TOTE) is to be 
punched for each department together with 
the appropriate department and division 
numbers . 



Specifications ; Before the processing of 
the object program begins, a blank card 
is inserted behind each department group. 
The blank card is specified on the Input 
Specifications form as illustrated in 
Figure 16, line 09. 



The calculation specifications for 
the summary totals to be punched are 
illustrated in Figure 17. Line 04 is 
processed when the blank card is read. 
It causes the accumulation of the level 2 
total for the summary card. 

In this example, this specification 
is required because the summary cards are 
inserted behind the control groups rather 
than obtained from a second file of blank 
cards. The level 2 control break does not 
occur until the summary card is punched 
and the first card of the next group is 
read. 

Control level L0, which is explained 
later in this publication, has been 
entered only to facilitate identification 
as a total calculation. 
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Figure 16. Summary Punching Example, Input Specifications 
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Figure 17. Summary Punching Example, Calculation Specifications 
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The entries required for the punching 
of the accumulated values are illustrated 
on the Output-Format Specifications form 
in Figure 18. The specifications required 
for this operation are circled. The over- 
flow specifications of the former example 
have been omitted to make the example 
easier to read. The cards to be punched 
will become a new output file. Therefore, 
the combined file is given the name 
DETLABOR (line 12, columns 7-14 of Fiqure 
18) . 

The T in column 15 indicates that the 
operation is to be performed at total time 

The entry in Output Indicators 
(columns 23-25) indicates that the opera- 
tion is to occur at the time the blank 
card is encountered. 



To identify the card as a summary 
card, an 8 is to be punched in column 35. 
This is specified on line 13. The 
remaining three fields are specified as 
described before. The format of the sum- 
mary card is shown in Figure 19. 



TESTING TO DETERMINE A ZERO, POSITIVE, OR 
NEGATIVE CONDITION OF THE FIELD STATUS 



During the execution of an object program, 
operations are performed in the same 
sequence in which the specifications are 
written on the specifications form, 
unless a different sequence is specified. 
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Figure 18. Summary Punching Example, Output Format Specifications 
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Figure 19. Summary Punching Example, Summary Card Format 



If specifications had to be followed 
sequentially in a fixed pattern, a pro- 
gram would follow a single path of opera- 
tion without any possibility of dealing 
with predefined exceptions to the pro- 
cedure. Moreover, the program could not 
be coded to follow a predefined alterna- 
tive to the procedure, based upon condi- 
tions encountered during the execution 
of the program. 

For example, assume that a program 
contains 5 consecutive specifications that 
are known to be meaningless whenever the 
quantities they refer to are zero. In 
this case, the execution time could be 
reduced if the program could be made to 
bypass these specifications whenever it 



detects 
is zero. 



that the quantity to J>e processed 



An entry on the Input Specifications 
form can be used to test a qu mtity and, 
depending upon the value of t lat quantity, 
set an indicator that will di :ect the pro- 
gram to some other specif icat Lon. Three 
types of tests can be made on| the Input 
Specifications form: 

1. Testing an input field tb determine if 
it contains a positive vplue. 



2. Testing an input field tjo determine 
if it contains a negati\le value. 
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3. Test an input field to determine if it 
is blank or contains zero. 

Three types of tests can also be made 
on the Calculation Specifications form to 
determine whether the result of a calcula- 
tion is positive, negative, or zero. 



Example 

Figure 20 illustrates a test to determine 
if FIDA contains zero. Figure 22 shows the 
specifications for a test to determine if 
FLDD (as the result field) contains a nega- 
tive value. 
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Figure 20. Specifying a Test for a Zero Balance 
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Figure 21. Calculations Based on a Test for a Zero-Balance 
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Figure 22. Testing for a Minus condition 



SE§ci f ication s : Figure 20 illustrates a 
typical test of the contents of an input 
field. To make this test, the programmer 
places one of the numbers from 01 up to 99 
in Field Indicators (columns 69-70) . In 
this example, the indicator 18 is used. If 
a card that is read into the system con- 
tains zeros or blanks in columns 46-50 
(FLDA) , indicator 18 is turned on. Thus, a 
special condition has been created. 

The program must consider this condi- 
tion during the execution of calculation 
and/or output specifications. This indica- 
tor condition has the same effect as having 
a resulting indicator turned on by a spe- 
cific record identification code from an 
input record. 

The entries circled in Figure 21 are 
the additional specifications that bypass 
the associated calculations for detail 
cards that contain zeros or blanks in FLDA. 
The specifications 14N18 in columns 10-14 
of lines 010-030 cause the calculation to 
be performed if indicator 14 is on and 
indicator 18 is not on. (The N in column 
12 stands for Not.) 

The same indicator specification, N18, 
can also be used on the Output Format Spe- 
cifications form to prevent the printing of 
detail cards when FLDA is zero, if that is 
a requirement of the program. 



Example 

The calculation specifications in Figure 22 
illustrate the use of a field indicator in 
testing a value to determine if it is nega- 
tive. The result of this text can be used 
to bypass certain specifications and/or to 
process other specifications whenever the 
tested field contains a negative value. 

S£§cif ication s : 

The specifications for this example are 
shown in Figure 22. The program logic for 
this example is shown in Figure 23. 



Line 1 specifies that 
added to FLDA and that the 
placed into FLDD. Line 02 
FLDC is to be subtracted f 
the result is to be placed 
addition, line 02 causes F 
to determine if its conten 
It is assumed in this exam 
value in FLDD is negative, 
involving FLDD are meaning 
fore, should be bypassed 
a negative value, the foil 
required: 



FLDB is to be 
result is to be 
specifies that 

rom FLDD and that 
into FLDD. In 

LDD to be tested 

ts are negative. 

pie that, if the 
the calculations 

less and, there- 
If FLDD contains 

owing action is 



The result must not be added into the 
field TOTE. 

The contents of FLDD must be reset to 
zeros. (This step is required whenever 
the contents of a result field are used 
in a subsequent operation in which a 
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Line 1 



Line 2 



ADD 
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Store in D 



Subtract 

D - C 
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ADD 




Restore 




D to 




D to 




TOTE 




Zero 








IbMril 









This is done on the specifications form 
(see Figure 22) by placing an indicator 
(code 19) into Resulting Indicators 
(columns 56-57). Indicator 19 is turned on 
whenever FLDD contains a negative value. 

The operation of adding FLDD into TOTE 
is specified on line 03. It is performed 
only if indicator 19 is off. This is spe- 
cified by entering N19 in columns 12-14. 

The specifications on line 4 cause FLDD 
to be reset to zeros whenever indicator 19 
is on. This is specified by entering 19 in 
columns 12-14. 

The in Factor 2 on line 4 is a numer- 
ic literal and is used to set FLDD to 
zeros. This is done by the zero-and-add 
(Z-ADD) operation. A literal is an actual 
value (constant) to be used in a calcula- 
tion. The remaining specifications in 
Figure 22 are the same as those from pre- 
vious examples. 



Continue 
with other 
processing 



Figure 23. Testing Indicators to Govern 
Processing 

negative quantity would produce inco- 
rrect results.) 



If the program had required suppression 
of the printing of detail cards whenever 
the result of the specification in line 02 
was negative, indicator 19 would also have 
been used on the pertinent Output-Format 
Specifications form. 



COMPARING 

The calculation specifications in this 
example illustrate a comparison of two 
fields and the subseguent processing 
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Figure 24. Example of Using the COMP Operation, Coding 



governed by the result of this comparison. 
The COMP operation is used to compare two 
fields ^and to determine whether the con- 
tents of the field in Factor 1 are greater 
than (high) , equal to (egual) , or smaller 
than (low) those in Factor 2. The COMP 



specification turns on the appropriate 
indicators specified in Resulting Indica- 
tors. These indicators can be used to 
bypass subsequent specifications or to have 
some specific operations performed whenever 
a particular condition has occurred. 
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Figure 25. Example of Using the COMP Operation, Logic 
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Figure 26. Sample Inventory Card 



Seecifications: The calculation specifica- 
tions for a compare problem are shown in 
Figure 2H. The program logic for the pro- 
blem is shown in Figure 25. 

Line 01 specifies that FLDA is to be 
compared with FLDB. If the two fields are 
equal, indicator 18 is turned on and the 
contents of FLDA are placed into HOLD (line 
02) . If the two fields are not egual (line 
03) , FLDB is subtracted from FLDA and the 
result is placed in SAVE. 

A literal may also be used in a compare 
specification. In the lower half of Figure 
24, the contents of the input field DATE 
are compared to 06-09-65. Indicator 19 is 
turned on if they are egual. 



MULTIPLYING AND DIVIDING 



lation reflects the average fabrication 
cost and scrap losses on a cumulative 
(year-to-date) basis. 

Sfiec if icat ions : The specifications to 
solve this problem are shown in Figures 27 
and 28. Figure 27 shows the input specifi- 
cations for all five fields. The programm- 
er must be certain of the exact length of 
each field. He must also know the number 
of decimal positions within each field. 
The fields in this example are: 



PARTN 

PRICE 
QUANTY 
YDCOST 
YDUSE 



xxxxx 

XX. XXX 
XXXX. 

xxxxxx.xx 
xxxxxx. 



No decimals 

(alphameric) 

3 decimals 

decimals 
2 decimals 
decimals 



Example 

This example illustrates an inventory pro- 
blem. The input for this example consists 
of inventory cards whose format is shown in 
Figure 26. For each part number, the guan- 
tity (QTY) is to be multiplied by the price 
to obtain the total cost per week. 

The second part of the problem is to 
update the price each week so that the 
price Used in the subsequent weekly calcu- 



As shown in Figure 27, the number of 
decimal positions in each field is entered 
under Decimal Positions on the Input Speci- 
fications form. 

The calculation specifications for this 
example are shown in Figure 28. 
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PRICE is multiplied by QUANTY and the 
product is placed in the result field named 
COST. The overall length of the field COST 
is specified as nine positions. This 
includes two decimal positions, specified 
in column 52. The H in column 53 specifies 
that the product of PRICE and QUANTY is to 
be half adjusted (rounded) . 

The following illustrates this 
operation. 

PRICE 1.213 

QUANTY x_216 

7278 
1213 

2426 

262.008 

Since half adjustment is always made in 
the position to the right of the last 
decimal position to be retained in the 
result field, the half adjustment in this 
example is made to the digit 8. To do 
this: 



262.008 

_+ 5 

262.013 



The rightmost decimal position (3) is 
truncated and the value 262.01 is placed in 
the result field COST. 
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operation, using actual values: 

YDCOST 1739.23 

PRICE = = — — = 1.3 419 

YDUSE 1296 

The result field was specified to have 
three decimal positions. Therefore, the 
half adjustment is made to the digit 9 in 
the rightmost position since this is in the 
position to the right of the last position 
to be retained in the result field. 

1.3419 

+ 5 

1.3424 (half adjust) 

The result (1.342) is stored in PRICE. 



SEQUENCE CHECKING 

Two types of sequence checking can be per- 
formed by RPG: 

1. Checking the sequence of different re- 
cord types. 

2. Checking the sequence of control 
groups. (See the section Usincj_the_Ma- 
tching__Fields_S2ecif ication_for 

S 62uence_C heckina . ) 



Sequence_Chggking of Different Record Types 

This example illustrates the updating of an 
invoice file that contains from two to four 
of the following card types for each part 
number: 



Card 

Master customer 
Shipped via 
Part number 
Comments 



Code 

5 in column 78 

3 in column 78 

2 in column 78 

8 in column 78 



Figure 29 illustrates the specifica- 
tions required to check the sequence of a 
group of four record types. The item num- 
bers in the following text refer to the 
circled numbers in Figure 29. 

1. The record-identification codes for the 
four card types are specified in the 
same manner as in the previous example. 
The C in C/Z/D (column 26) specifies 
that the entire character punched in 
the card is to be examined to establish 
the record-identification code. 

In the specifications for the last 
card-type (line 130 on the form), a D 
is written in C/Z/D because there is a 
possibility that some of these record 
types may have a zone punch. The D 
specifies that only the digit punches 
in the card are examined to identify 



the card type. Thus, zone punches 
which could cause unequal comparisons 
are ignored. 

2. The sequence established for the file 
is determined by the sequence in which 
the specifications for each record type 
are written on the form. The numbers 
must be in ascending sequence. In this 
example, the digits 01, 02, 03, and 04 
are used. For each file, the numbers 
assigned must begin with 01. 

Alphabetic characters under Sequence in 
preceding examples indicate that no 
sequence checking is to take place. 
Alphabetic specifications (indicating 
no sequence checking) must always be 
written before numeric specifications 
for any one file. 

If a sequence error is detected, the 
execution of the object program is 
discontinued. 

3. If a numeric specification is provided 
in Sequence, a specification must be 
provided in Number. 

On the first two record identification 
lines, the digit 01 in Number indicates 
that no more than one record of that 
type must be present before the next 
record type is checked. In this 
example, only one master record and one 
shipped-via record for each invoice 
must be present. If there is more than 
one of either of these records, the 
program assumes an error in the input 
file. 

The letter N in Number of the specifi- 
cations for the last two record types 
means that one or more records of this 
type may be present for each invoice. 
In this example, one or more part num- 
ber and comments records may be present 
for each invoice. 

The letter in Option specifies that 
the presence of record (s) of this type 
is optional. 

If the letter is not specified, at 
least one record of the particular type 
must be present. This requirement ap- 
plies only if Sequence contains a num- 
eric specification. 

While sequence checking of record types 
is normally done to assure the proper 
makeup of a control group, the checking 
is completely independent of control 
levels. This checking assures only 
that the record types are in sequence; 
it does not assure that they all belong 
to the same control group. 
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Figure 30. Sample File-to-File Program 



C0ERELATI0N_0F_THE_RPG_SPECIFICATI0N_F0RHS 

Figure 30 shows a file-to-file sample pro- 
gram that illustrates the correlation of 
the RPG specification forms. 



Assume the contents of an input file 
are to be transferred to another file. In 
this example, the input file is a card file 
and the contents of the cards are to be 
listed on the printer. Three specifica- 
tions forms are required for this program: 
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File Description, Input, and Output-Format 
Specifications. 

FILE DESCRIPTION FORM 

The card input file is assigned the name 
INPUT, and the printed output file is named 
OUTPUT. Page and line sequence numbers are 
entered in columns 1-5, and the program 
identification is entered in columns 75-80. 
An F in column 6 indicates that each entry 
is a filenames-description entry. The file 
is entered in columns 7-14 (Filename). 
Column 15 contains an I or an to indicate 
whether the file is an input or an output 
file. 

Column 16 on line 010 of the File 
Description Specifications form contains a 
P because the file described is the primary 
input file for the job. 

Column 19 contains an F in line 010 and 
in line 020 to indicate that the file for- 
mats are fixed length. Record length 
(columns 24-27) is 80 for the card input 
file and 120 for the printer output file. 

The entry READ01 in Device specifies 
that the input file will be read from an 
IBM 2501 Card Reader. The Device specifi- 
cation for the output file is PRINTER. 



INPUT SPECIFICATIONS FORM 

The Input Specifications form also has the 
program identification entered in columns 
75-80 and the page and line numbers in 
columns 1-5. The I in column 6 of each 
line identifies this as an input 
specification. 

The filename is entered in columns 
7-14. Columns 15-16 contain the sequence 
code AA. Indicator 01, entered into 
columns 19-20, will be on throughout the 
job to show that records from the asso- 
ciated file are being processed. The 
second line describes the card field name 
CARDIN. The field comprises card columns 
1-80. 



OUTPUT-FORMAT SPECIFICATIONS FORM 

On the Output-Format Specifications form, 
the name of the output file is entered in 
columns 7-14. The D in column 15 indicates 
that each line printed is a detail line. A 
single space after printing is specified by 
the entry in column 18. Indicator 01 from 
the Input Specifications form is specified 
in columns 23-25. Since indicator 01 is on 
for each card read, all records are 
printed. 



36 



PROGRAM LOGIC 



Each object program generated by RPG uses 
the same general logic. For each record to 
be processed, the program goes through the 
same general cycle of operations. Within 
that cycle, there are two different 
instances in time, detail time and total 
time, when operations specified on the Cal- 
culation and Output-Format Specifications 
forms are performed. These instances are 
called detail time and total time. Excep- 
tion output lines and calculation subrou- 
tines are only performed when reguired. 

Two levels of program logic flow are 
described here. The first is a simplified 
version that shows only the most important 
steps. The second version is more complete 
and detailed in its explanation of logic 
flow. 



SIMPLIFIED PROGRAM LOGIC 

The simplified program logic diagram shown 
in Figure 30.1 can be used for most discus- 
sions of logic flow. A brief discussion of 
each function follows. The item numbers in 
this text refer to the numbers in Figure 
30.1. 

1. RPG begins by performing heading and 
detail output lines if the conditioning 
indicators are satisfied. Following 
this , all control level and record 
identifying indicators are turned off. 

2. If multifile logic is reguired it is 
performed at this time. The input re- 
cord to be processed on this cycle is 
selected. 

3. The record type is determined and the 
appropriate record identifying indica- 
tor is turned on. If control fields 
are specified, they are checked at this 
time and the appropriate control level 
indicators turned on if necessary. 

4. Total calculations are performed if the 
conditioning indicators L0, L1-9, and 
LR are satisified. Exception output 
and/or closed subroutines may be per- 
formed at this point. 

5. Total output lines are performed if the 
conditioning indicators are satisfied. 

6. The data fields described on the Input 
Specifications for this record type are 
moved to the fields named. Any field 
indicators are set at this time. 



7. Detail calculations (blanks in columns 
7-8 of the Calculation Specifications) 
are performed if the conditioning indi- 
cators are satisfied. Exception output 
and/or closed subroutines may be per- 
formed at this point. 

8. If exception output is called for, 
exception output lines are performed if 
the conditioning indicators are satis- 
fied. The program returns to the next 
calculation statement following the 
EXCPT operation that was performed. 

9. If a closed subroutine is called for, 
the individual calculations within that, 
closed subroutine are performed if the 
conditioning indicators are satisfied. 
The closed subroutine may also call 
other closed subroutines or exception 
output. The program returns to the 
next calculation statement following 
the EXSR operation that was performed. 

A detailed flowchart of an RPG object 
program is shown in Figure 31. 

The item numbers in the following text 
refer to the numbers in Figure 31. A pro- 
gram cycle begins with item 1 and continues 
through item 25. 

1. The object program performs all speci- 
fied heading and detail output opera- 
tions whose conditions are satisfied. 
This does not include output line spe- 
cifications that are conditioned by the 
OF or OV indicator. 

2. The object program performs a test to 
determine if a punch in channel 12 of 
the carriage-control tape was encoun- 
tered at detail time. If this is the 
case, the 0F/0V indicator is turned on. 
Otherwise, the indicator is turned off. 

3. The object program makes the next input 
record available. At the beginning of 
processing, if it is a multifile job, 
one input record from each file is read 
into core storage. 

4. The object program tests the halt indi- 
cators. If the halt indicators are 
off, the program branches to step 6. 

5. The execution of the program is 
discontinued. 

6. All Record Identifying indicators and 
the indicators 1P, LR, L1 through L9, 
and H1 through H9 are turned off. 
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Figure 30.1 Simplified Logic Flow of an 
RPG Object Program. 



Figure 30.1 Simplified Logic Flow of an 
RPG Object Program. 



7. The data is moved from the input area 
to the input work area. 

8. The object program F er f orn,s a test to 
determine if the record is an end-of- 
file record. If an end-of-file condi- 
tion has occurred, the program branches 
to step 26. 

9. The object program performs a test to 
determine if the input records are in 
the sequence specified for them on the 
Input Specifications form. If the 



sequence is incorrect, the program 
branches to step 36. The program also 
branches to step 36 if nonsequential 
input records are specified and the re- 
cord cannot be identified. 

10. The object program branches to step 29 
if matching fields are specified. 

11. The record identifying indicator speci- 
fied for the current record type is 
turned on. 

12. The object program performs a test to 
determine if a control break has 
occurred (i.e., the contents of this 
control field are not equal to the con- 
tents of a previously stored control 
field) . If a control break has not 
occurred, the program branches to step 
14. (The control fields are initially 
set to hexadecimal zeroes or the lowest 
possible EBCDIC value.) 

13. If a control break has occurred, the 
appropriate control-level indicators 
are turned on and the control fields 
are moved into a save area. 

14. If this is the first program cycle, the 
program bypasses the total calculations 
and the total output specifications and 
branches to step 17. 

If no control fields are specified, 
total calculations and total output 
lines are bypassed for the first record 
read. 
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15. All total calculations are performed 
and resulting indicators are turned on 
or off as specified. 

Note__1 If the user specifies the use of 
a Closed Subroutine, the program 
branches to the specific subroutine 
mentioned (step 40 ) and then returns 
to the next total calculation. 

Mote 2 If the user specifies the use of 
the EXCPT operation code, the program 
branches to step 39 and then returns to 
the next total calculation. 



16. Next, all total output that is not con- 
ditioned by an overflow indicator is 
performed. 
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Figure 31. General Logic Flow of an HPG Object Program (Part 1 of 2) 
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Figure 31. General Logic Flow of an EPG Object Program (Part 2 of 2) 
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17. The object program performs a test to 
determine if an overflow condition has 
occurred (i.e., a punch in channel 12 
of the carriage-control tape) . If an 
overflow condition has occurred at any 
time during this cycle, the indicator 

(OF or OV) associated with the file 
that overflowed is turned on. 

18. The object program performs a test to 
determine if the last-record indicator 
(LR) is on. If the indicator is on, 
the program branches to step 38. 

19. The object program performs a test to 
determine if one or both indicators, OF 
and OV, are on. If no overflow indica- 
tor is on, the program branches to step 
21. 

20. The specified overflow output is per- 
formed. If no overflow output is spe- 
cified the object program performs an 
automatic skip until a punch is sensed 
in channel 1 of the carriage-control 
tape. 

21. The ME indicator is turned on if this 
is a multifile job and the record to be 
processed is a matching record. Other- 
wise, the MR indicator is turned 

off. If the user has coded a loop from 
Detail to Total Calculations, the ME 
indicator will only reflect the correct 
status the first time Detail Calcula- 
tions are performed. 

22. The input data is moved from the input 
work area to the process area (i.e., 
the fields that are specified on the 
Input Specifications form) . No sign 
checking is performed on numeric 
fields. 

23. Field indicators are turned on or off 
as specified. 

24. If chaining fields are specified, they 
are moved into the appropriate fields, 
CI to C3, and internal chaining 
switches are turned on by the program. 
Once all the fields of a chaining re- 
cord have been moved to the process 
area, chaining begins with the lowest 
chaining field (C1) . A chained file 
record may also contain chaining fields 
(see Figure 31, 24a) . 

25. Any specified detail calculations are 
performed, and resulting indicators are 
turned on or off as specified. Proces- 
sing continues with step 1. 

Note_J If the user specifies the use of 
a closed subroutine, the program 
branches to the specific subroutine 
mentioned (step 39) and then returns to 
the next detail calculation. 



Note_2 If the user specifies the use of 
the EXCPT operation code, the program 
branches to step 40 and then returns to 
the next detail calculation. 

26. If only one input file is to be pro- 
cessed, the program continues with step 
28. 

27. The object program performs a test to 
determine if the processing of all the 
files specified with an E in column 1' 
of the File Description Specifications 
form has been completed. If not, the 
program branches to step 33. 

If the primary file is the only file 
with an E specified, but a matching 
secondary is present, all records which 
match the primary will be processed. 
The LR indicator will then be turned 
on. 

28. All control-level indicators (L1-L9) , 
and the last-record indicator (LR) are 
turned on and processing continues with 
step 14. 

29. The specified matching fields are moved 
into the appropriate key area (i.e., 
the area that contains the control 
information for the file just 
processed) . 

30. Then the contents of this key area are 
compared to the contents of the 
matching-field work area. If the con- 
tents are egual, the program branches 
to step 1 1 . 

31. The program performs a test to deter- 
mine if the sequence of matching fields 
is correct. If the sequence is inco- 
rrect, the program branches to step 36. 

32. The program performs a test to deter- 
mine if more than one file is to be 
processed. If only one input file is 
to processed, the program branches to 
step 11. 

33. The contents of the key area of the 
other input files are compared to the 
contents of the matching field work 
area. If the contents are equal, the 
program branches to step 35. 

34. Otherwise, the program determines new 
matching-field contents and moves the 
lowest or highest contents into the 
work area depending on whether ascend- 
ing or descending sequence is 
specified . 

35. The program determines the next file to 
be processed and branches to step 11. 
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36. The execution of the program is discon- 
tinued because of a sequence or record- 
type error. 

37. Restart processing after elimination of 
the error condition. 

38. The execution of the program is 
discontinued. 

39. Exception output. The program performs 
all exception output whose conditions 
are satisfied. No overflow lines may 
be specified during exception output. 
The program returns to the next calcu- 
lation statement in either Step 15 or 
Step 25 depending upon where it came 
from. 

40. Closed subroutines. All calculations 
are performed for the called subroutine 
and any resulting indicators are set. 
If another subroutine is called within 
the called subroutine, it too is 
executed. The program returns to Step 
15 or Step 25 depending on where it 
came from when the originally called 
subroutine is completed. 



SIGNIFICANCE_OF_PBOGEAM_IOGIC 

Four important conclusions can be drawn 
from the program logic: 

1. At the beginning of execution of the 
RPG object program, all headings and 
detail output records whose conditions 
are satisfied are processed. At this 
time, the indicators L0 and 1P are 
turned on. All other indicators are 
turned off. The user must ensure that 
only the output conditions for those 
records that are to be printed as head- 
ing information are satisfied before an 
input record is read into the system. 
Heading information is usually speci- 
fied with the indicator 1P. Other 
heading records must be specified with 
indicator N1P or with record identify- 
ing indicators whose conditions are not 
satisfied at the beginning of the 
object program run. As soon as the 
first input record is read into the 
system, indicator 1P is turned off. 
Therefore, all records specified with 
indicator 1P are not printed or punched 
again during the object program run. 
Ensure that the punching of records in 
a combined file is specified in such a 
manner that their conditions are not 
satisfied at the beginning of the 
object program run. Otherwise, the 
first card of a combined file is 
punched prior to being read. The input 
data contained in this card is lost. 



2. When a record is read that causes a 
control break, the data from the record 
is not operated upon until after all 
total calculations and total output for 
the previous group have been performed. 
However, the record identifying indica- 
tor specified for this record is alrea- 
dy turned on. 

Control fields are initialized to hexa- 
decimal zeros. Consequently, a record 
with a blank or zero punched (hexade- 
cimal F0) control field will cause a 
control break. 

3. If, during the execution of total out- 
put specifications, a hole was sensed 
in channel 12 of the carriage-control 
tape, all remaining total output speci- 
fications are executed whose conditions 
are satisfied. After the total lines 
are printed, overflow lines are 
printed. 

If a hole in channel 12 is sensed dur- 
ing the printing of a detail line, all 
the remaining detail and total lines 
specified (whose output conditions are 
satisfied) are printed before the 
printing of overflow lines. Therefore, 
the hole in channel 12 must be correct- 
ly placed to permit printing of these 
lines on the page. 

4. If a halt indicator (H1 through H9) 
specified in Field Indicators on the 
Input Specifications form or (for 
detail calculations) in Record Identi- 
fying Indicators is turned on, the 
object program terminates processing 
immediately after completing this 
detail cycle. 

If a halt indicator is set on during 
the processing of total calculations, 
the object program continues processinq 
until the end of the next detail cycle 
is reached. The execution of any spe- 
cifications can be conditioned or pre- 
vented by placing H1 through H9 or 
their negation NH1 through NH9 in Indi- 
cators of the appropriate specifica- 
tions form. 

This termination of the program must 

not be mistaken for the regular end of 

job. It is denoted by a different end 
of job signal. 



PROBLEK_DEFINITION 

The programming examples in the preceding 
section were intended to introduce the 
reader to the use of RPG and were, there- 
fore, elementary. More complex applica- 
tions may require a thorough analysis of 
the existing cr proposed problem before the 
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program is written. This analysis should 
include a description of source data and 
its format, and the processing required to 
develop the report and other desired output 
information. 

The following types of information must 
be defined before coding the program: 

1. Available data. 

2. Input/output formats to be used. 

3. Information required in the input and 
output formats. 

H. Codes to be used to identify the 

various types of input and output and 
their elements. 

5. Handling of the various transactions 
and exceptions. 

After all application data has been 
collected, it should be documented for easy 
reference during the writing of the speci- 
fication forms. One method of documenting 
an application is to produce a layout of 



the complete format of the report on a 
Printer Spacing Chart. If the output is 
tobe punched into cards, card layout should 
be used instead of a Printer Spacing Chart 
to define the output fields. These methods 
provide a pictorial representation of the 
final output. 
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Figure 32. Printer Spacing Chart 



M2°ut_of_Lines_and_Fields 

Figure 32 illustrates the layout of a 
report on the Printer Spacing Chart. Its 
two most important functions are: 

1. To establish the positions of the data 
to be printed and tc indicate the spac- 
ing between printed lines. 

2. To assign each line an identification 
code representing the type of line. 

The numbers across the top and bottom 
of the spacing chart refer to the print 
positions. The numbers down the left side 
are the line numbers. The programmer 
selects the line number and print positions 
for a particular field and makes his nota- 
tion in the selected positions. 



Headings and o 
should be spelled 
print positions as 
of variable inform 
fied by X's. Wher 
should include ere 
etc. The position 
zero suppression e 
by a zero rather t 



ther constant information 
out completely in the 
signed to them. Fields 
ation should be identi- 
e applicable, such fields 
dit symbols, punctuation, 
in an amount field where 
nds should be indicated 
han an X. 



£i£ e ._I^£!tification_Code 

The line identification code specifies the 
type of line to be printed. The identifi- 
cation codes are: H for a heading line, D 
for a detail line, E for an exception line, 
and T for a total line. All lines should 
be identified as belonging to one of these 
categories. 
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EPG SPECIFICATION_FOEMS 



CRCSS_BEFERENCES 

To make this reference manual a more effec- 
tive tool, numerous cress references are 
included for readers not familiar with 
disk-storage processing and related 
functions. 

Disk storage, table lookup, matching 
field, and chaining field operations and 
related functions are described apart from 
the detailed descriptions of specifications 
for them. 

These general introductory descriptions 
(located at the back of the manual) are 
intended for the reader as he encounters 
the related specifications for them throu- 
ghout the manual. 

The sections File_0r3anization and File 
Processing provide a general introduction 
to disk-file organization and processing, 
including the terminology associated with 
these functions. 



GENEBAL_INFOMATIOH 

The forms are discussed in this publication 
in the sequence in which they are listed 
below. This is the sequence in which they 
are normally used by the programmer: 

input Specifications 
Calculation Specifications 
Output-Format Specifications 
File Description Specifications 
Extension Specifications 

Figure 33 shows the five specification 
forms. In addition to these forms, an 
RPG Control Card is necessary for each job. 
Refer to Appendix B for more information 
about this card. 

l££B±._Sp.ecif ications_Fcrm 

This form is used to: 

1. specify the input file or files. 

2. Identify the various types of records 
contained in each input file. 

3. Describe the location of the data 
fields in each input record. 

Calculation_S£ecif ications_Form 

This form is used to specify the operations 
to be performed upon the input data, upon 



data obtained as the result of previous 
calculations, and upon data obtained from 
tables. 

PJii£iJtrFormat_S2ecifications_Form 
This form is used to specify: 

1. The type of output files to be pro- 
duced: printed reports, summary 
reports, etc. 

2. The location of the data fields in the 
output reports and records. 

£iI§_2S§££i£ti2S-^£S£ifi£§.ii2£.s_Form 

This form is used to provide additional 
information about the input/output files 
and to specify the input/output devices 
used in the program. 

Extension_S£ecifications_Form 

This form is used to provide additional 
information about files used by the object 
program, such as tables, chaining files, 
and RA (Record Address) files. 



COWHON_FIEIDS 

Five entries have the same function in each 
of the five forms. These five common 
entries are described as follows. 



PAGE NUMBER (COLUMNS 1-2) 

Each specification page of the source pro- 
gram may be numbered for reference and 
sorting convenience. The pages are num- 
bered beginning with 01 and continuing in 
ascending order as follows: 

1. File Description Specifications form 

2. Extension Specifications form 

3. Input Specifications form 

4. calculation Specifications form 

5. output-Format Specifications form 

More than one sheet of a particular 
specifications form may be used. 
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LINE NUMBER (COLUMNS 3-5) 
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Each specification line sh 
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The cards should be in numeric 
sequence by columns 1-5 when y are read by 
RPG. If not, an out of sequence warning 
notation will be given. 



FORM TYPE (COLUMN 6) 

Each form has an appropriate type-code pre- 
printed in column 6 which must be punched 
into all specification cards. The codes 
are: 

I Input Specifications 



C Calculation Specifications 
output-Format Specifications 
F File Description Specifications 
E Extension Specifications 

COMMENTS (ASTERISK * IN COLUMN 7) 
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PROGRAM IDENTIFICATION (COLUMNS 75-80) 

This entry identifies the specification 
cards for a particular program or for a 
specific section of a large program. 



48 



I NJ?2T_ SPECIFICATIONS FORM 



The specifications that are made on this 
form are divided into two categories 
(Figure 34) . 

1. Record Identification (columns 7-42) . 
These specifications identify the input 
record by specifying the identifying 
record codes it contains. They also 
specify the relationship of the record 
to other records in the file. Every 
RPG program must contain at least one 
record identification entry. 

2. Field Description (columns 43-74) . 
These entries describe the fields of 
the input record used in the particular 
application. Each field is described 
on a separate line below its corres- 
ponding record-identification entry. 



RECORD_IDENTIFICATION_ENTRIES 
FILENAME (COLUMNS 7-14) 

A filename must be assigned to each input 
file. Use the same name as the one on the 
File Description form. The name must be 
left- justified (i.e., it must begin in 
column 7) and its first character must be 
alphabetic. It must not contain special 
characters or embedded blanks. A filename 
must be specified for the first record 
identification line of the appropriate 



file. The maximum length of a filename is 
eight characters. However, 1130 RPG uti- 
lizes only the first five characters for 
all files. Therefore, it is mandatory that 
the first five characters provide a unique 
filename. The same file name may be speci- 
fied for another record type. All record 
types for one file must be specified 
consecutively. 



SEQUENCE (COLUMNS 15-16) 

This specification designates the sequence 
of input-record types. 

£i2ij§betic_En tries 

If the input records are not in a predeter- 
mined sequence or if it is not required to 
terminate processing when the input records 
are out of sequence, the entry in columns 
15-16 should be a two-character alphabetic 
code. 

In Figure 35 the input data records, 
which contain part numbers and unit num- 
bers, do not appear in a predetermined 
sequence. Consequently, each input-record 
type is assigned an alphabetic code because 
the order of processing is not important to 
the program. 
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(Sequence BB) 
5 in column 80 
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(Sequence BB) 
5 in column 80 
(Sequence AA) 




the sequence-checking specifications for 
this example. Numeric entries must consist 
of two digits. 

lotej. If a numeric specification is given 
in Sequence (columns 15-16), specifications 
must also be provided in column 17. 

S^strictions 

• The entries for the checking of a prede- 
termined sequence (columns 15-16) must 
begin with 01 for each file. 

• The entries for the checking of a prede- 
termined sequence must be in ascending 
order. 

• Header cards or other cards that are not 
in sequence must be specified on the 
Input Specifications form before any spe- 
cifications for sequence-checking. Enter 
alphabetic sequence record-types first, 
followed by numeric sequence for any one 
file. 



Figure 35. Input Data Records 
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If the input records do not appear in 
this predetermined sequence, the processing 
of the program is discontinued (information 
is out of sequence) . Figure 37 illustrates 



NUMBER (COLUMN 17) 

If a numeric code is assigned under 
Sequence (columns 15-16) , a 1 or an N must 
be entered in Number (column 17). If an 
alphabetic code has been assigned under 
Sequence, leave this column blank. 

The entries for Number (column 17) are: 

1 One and only one record of a type 

must be present before another record 
type is read. 

N one or more records of a type may be 
present before another record type is 
read. 

Blank The records do not appear in a prede- 
termined sequence. 

In Figure 37, there must be only one 
Name record, one Street record, and one 
City-State record, but there may be several 
Item Number records. 
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OPTIONAL (COLUMN 18) 

If the presence of a record is optional, 
the letter is entered in this column. It 
is not permitted to specify all records of 
a file as optional. at least one record 
must be "required". If a specific record 
type must be present or if records are non- 
sequential, this column must be left blank. 



In Figure 37, the letter in column 18 
indicates there may be one, several, or no 
Item Number records in each group. In this 
example, Name, Street, and City-state reco- 
rds (one per type) must be present. 

lotej. If a numeric entry is specified in 
columns 15-18: 

1. These columns have no relationship 
with control levels (columns 59-60) . 
If two card types are mandatory, the 
EPG program will enly check that one 
follows the other. No checking is 
performed to ensure that they belong 
to the same control group. 

2. If the file contains two record types 
and one is specified as mandatory and 
the other optional (see Figure 37 
Part 2 of 2) , no errors will ever be 
detected. The program can only per- 
form a valid check when two or more 
records are mandatory. 



RECORD IDENTIFYING INDICATOR (COLUMNS 
19-20) 



The entry in these columns is used in 
conjunction with the entry in record 
identification codes (columns 21-41) . 
The record identifying indicator serves 
two functions: 

1. It establishes a unique two-digit 
code for each input-record type. 

2. A special indicator is turned on in 
the object program each time the 
input record is present. Thus, the 
object program may test for this 
condition during the processing of 
the calculation and output specifi- 
cations . 

To understand the first function of 
this entry, assume that an input record 
is identified by all of the following 
codes : 

1. An X in column 80. 

2. A digit 5 in column 79. 

3. No R in column 78. 

By assigning one two-digit record 
identifying code to represent all these 
codes, it is easier to refer to this type 
of input record during the writing of the 
calculation and output specifications. 
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The second function of record- 
identifying indicators can be considered 
analogous to the function of selectors in 
unit record equipment, or to internal and 
external switches on electronic data pro- 
cessing equipment. The use of indicators, 
like the use of selectors and switches, 
permits the user to have certain opera- 
tions occur only on specific conditions. 

In Figure 37 the four record types 
have been assigned the record-identifying 
indicators 12, 13, 14, and 15. When one 
of the records is present, the appropriate 
record-identifying indicator is turned on, 
and all specifications pertaining to this 
type of record are performed. Specifi- 
cations associated with other record 
types are not performed. 

Record- identifying indicators are 
turned on and off during the processing of 
the object program, as the various record 
types are read. However, only the record- 
identifying indicator for one specified 
record type can be on at a time. When a 
record-identifying indicator is turned on, 
all other record -identifying indicators 
are turned off. This does not apply to 
record-identifying indicators for chained 
records. 

Other indicator conditions that can 
be established in the program are field 
indicators (columns 65-70 of the Input 
Specifications form) and resulting 
indicators (columns 54-59 of the Calcula- 
tion Specifications form) . These functions 
are described later, but one aspect of 
their use is of interest at this time. 

A unique two-digit code (01-99) must 
be assigned for each indicator used in 
the program. The indicator codes do not 
have to be assigned in any sequence. For 
example, four different record types 
could be assigned the record-identifying 
indicator codes 40, 62, 98, 02. The 
codes 01-99 can be assigned to any one 
of the three types of indicators. 
Different types of indicators with the 
same code are considered to be the same 
indicator. Therefore, care should be 
taken when assigning the same code to 
different types of indicators. 



RECORD IDENTIFICATION CODES (COLUMNS 21-41) 



These entries provide a means of identify- 
ing each different record type used in the 
object program. As mentioned earlier in 
this publication, once the record type has 
been defined on the Input Specifications 
form, references to the record type are 
made by its record-identifying indicator. 



These columns provide for the entry 
of one to three identifying codes as 
indicated by the numbers 1, 2, and 3 on 
the Input Specifications form. A record 
type can be identified by specifying more 
than three codes in more than one line. 
If only one record type is contained in 
the input file, record identification 
codes can be left blank, but a record- 
identifying indicator and a Sequence entry 
must still be specified. 

The three sets of entries in record 
identification codes are identical. 
Therefore, only the first set (columns 
21-27) is described. The set consists of 
four entries as follows: 

Position (columns 21-24) 

Not (column 25) 

C/Z/D (column 26) 

Character (column 27) 



Position (Columns 21-24) 

Enter in these columns the number of the 
position in a record type than contains 
the identifying code. This entry must be 
right-justified. Leading zeros can be 
omitted. 



Not (Column 25) 



Enter an N in this column if the Code 
described in columns 26 and 27 is not to 
be present in the specified position of 
the associated record type. Otherwise, 
leave this column blank. 



C/Z/D (Column 26) 

The object program identifies different 
types of input records by comparing the 
character written in Character (column 27) 
with codes contained in the records. The 
entry in column 26 specifies whether the 
object program is to compare against the 

• Entire character (C) . 

• Zone portion (Z) . 

• Digit portion (D) . 

Enter a C, Z, or D in column 26, as 
applicable. 
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Character (Column 27) 



D — Digit 



The particular character allowed for 
record identification (column 27) depends 
on the particular specification used in 
C/Z/D (column 26) . 

1. C — Character 

If this entry is contained in C/Z/D, 
any one of the 256 characters of the 
EBCDIC (Extended BCD Interchange 
Code) may be specified in the 
Character column. 

2. Z — Zone 

The zone portion of the punched card 
column consists of the 12, 11, hole 
positions. 

a. Testing card zones 

If the test is to be for a 12- 
zone, the characters &, or any 
one of the 16 EBCDIC characters 
that have the same zone as the 
letter A may be specified in 
the Character column. The 
presence of a 12-zone is recog- 
nized only if one of these 
characters is present in the 
pertinent position of the record. 

If the test is to be for an 11- 
zone, the character - (minus 
sign) , or any one of the 16 
EBCDIC characters that have the 
same zone as the letter J may be 
specified in Character. The 
presence of an 11-zone is recog- 
nized only if one of these 
characters is present in the 
pertinent position of the record. 
If the test is to determine the 
absence of both the 11 and 12 
zones, any one of the 16 EBCDIC 
characters having the same zone as 
1 (no zone) may be specified, 
or the Character column may be 
left blank. The absence of zones 
is recognized only if one of 
these characters is present in 
the pertinent record position, or 
if this record position is blank. 

b. Testing core zones 

Any other specification will 
identify record codes with the 
same zone in core storage as the 
character specified in the 
Character column of the Input 
Specifications form. 



The digit portion of the punched 
card column consists of the 1 
through 9 hole positions. 

If this entry is contained in C/Z/D, 
the digit portion of any of the 256 
EBCDIC characters can be tested. 
Any one of these characters may be 
specified in the Character column. 

Note : Using the specification C in C/Z/D 
saves core storage and reduces the time 
required for the execution of the object 
program. 



Examples of Record-Identification Codes 



Examples of record-identification codes 
are shown in Figure 38. 
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Figure 38. Sample Record Identification 
Codes (Part 1 of 3) 
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Figure 38. Sample Record Identification 
Codes (Part 2 of 3) 
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Figure 38. Sample Record Identification 
Codes (Part 3 of 3) 



The numbers circled in Figure 38 corre- 
spond to the item numbers in the following 
text: 



1. 



4. 



5. 



This entry causes the 
identifying indicator 
the character - (minus 
of the 16 EBCDIC chara 
the same zone as the 1 
tained in record posit 
be placed in column 26 
zone portion is checke 
placed in this column, 
gram would compare the 
instead of an 11-punch 
input-record code.) 



specified record- 
to be set on if 

sign) or any one 
cters that have 
etter J is con- 
ion 18. A Z must 
so that only the 
d. (If a C were 
the object pro- 
letter K, 
, against the 



This entry turns on the specified 
record-identifying indicator whenever 
an input record is read that does not 
contain the character - (minus sign) or 
any one of the 16 EBCDIC characters 
that have the same zone as the letter K 
in position 18. 

This entry turns on the specified 
record-identifying indicator if a 
character whose digit portion is 5 is 
contained in record position 62 (e.g., 
a 5, N, V, or E would meet this 
requirement) . 

This entry turns on the associated 
record-identifying indicator if the 
letter T is contained in record posi- 
tion 49. 

These entries specify that three 
conditions must be met in the one 
input record. This is referred to 
as an AND relationship. In the 
example, the associated record- 
identifying indicator is turned on 
if a 4 appears in column 16 of the 
input record, column 40 does not con- 
tain a 5 and column 80 contains the 
character & or any one of the 16 
EBCDIC characters has the same zone 
as the letter A. 



Figure 39 illustrates the use of more 
than one code on more than one line to 
identify one type of input record. In this 
example, the specified record-identifying 
indicator is turned on if an input record 
is read that contains all of the following: 



• A 4 in position 16. 

• No 5 in position 40. 
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Figure 39. Example of Specifying Becord Identification Codes in an AND-Relationship 



Input Specifications Form 54.1 



54.2 



• An 11-punch in position 80. 

• A 2 in position 20. 

• A 3 in position 25. 

Additional specification lines can be 
used to specify as many record- 
identification codes as required. Each 
additional line must begin with the word 
AND in columns 14-16. Columns 17-20 of 
each AND line must be blank. 

An AND relationship is concerned with 
specifying more than three record identifi- 
cation codes for one record type, whereas 
an OR relationship is used to specify two 
^iffe£gnt_£ecord_ty.£es with just one set of 
field description specifications. The 
fields in the two record types may be in 
the same or in different positions. 

To specify an OE-relationship, enter 
the word OP in columns 14-15. Columns 
16-18 of OR lines must be left blank. For 
more detailed information, refer to the 
secti on Recor ds_in_a n_0 R^R elations jjija . 

2li±lii!2_Secord;Identif ication_Codes 

When all input records are to be processed 
alike, columns 21-41 may be left blank. 
However, a sequence must be specified. 
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isted first 
tion codes, 
an be bypassed 

either case, 
st record type 
sequence, 
are left blank, 
assed, they 

the calcula- 
s. 



If the program reads a record which satis- 
fies two or more record types only the 
first will be recognized. In Figure 38 re- 
cord identifying indicator 02 will never be 
turned on because the first record type 
(AA) is satisfied. 

2fidetermined_Record_T_XI>e 



If the program cannot detect a record type, 
a halt will occur and the operator will be 
given a choice of continuing with the next 
record. In many applications, the user may 
wish to program for undetermined record 
types and process them differently. This 
can be accomplished by defining a record 



type with no record identification. This 
record type must be specified following all 
valid types as shown in Figure 38. Record 
identifying indicator 05 is turned on 
whenever an undetermined record type is 
read. 



STACKER SELECT (COLUMN 42) 

If the input records are cards that are to 
be stacker-selected, the number of the 
stacker into which the cards are to be 
selected is entered in column 42. Leave 
column 42 blank if the cards are to go to 
the normal stacker. 

A different stacker may be specified 
for each OR line. If only one stacker is 
required in an OR-relationship, this stack- 
er must be specified on each of the OR 
lines. 

For the IBM 1442 Card Reader, the nor- 
mal stacker, 1, may be specified with ei- 
ther a 1 or a blank in column 42. A 2 in 
column 42 will specify stacker number 2. 

Notej. If two I/O areas are specified for 
the file (by entering 1-9 in column 32 of 
the File Desciption Specification of this 
file) , stacker select will be ignored. 
Using two I/O areas requires that a second 
card be read before stacker selection can 
occur for the first card. 



IIELD_DESCRIPTION_ENTRIES 

As mentioned earlier in this publication, 
the Input Specification form consists of 
two categories of entries: record identi- 
fication and field description entries. 

In the record identification category 
of entries (columns 7-42) , a line contains 
the specifications for one record type. In 
the field-description category (columns 
43-74) , one line represents the specifica- 
tions for one field of an input record 
type. 

Field description specifications are 
always written on the line immediately 
below the specifications that identify the 
record type. 

Field description entries describe 
those fields of the input record that are 
to be used in the application. Each field 
of the record requires one line on the 
Input Specifications form. Columns 7-42 of 
each field-description line must be left 
blank. 
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PACKED (COLUMN 43) 

The packed decimal format may be used only 
with disk files. If the input is in 
unpacked decimal format, leave this column 
blank- 
Enter a P in this column if the numeric 
input field is in packed decimal format 
(two decimal digits represented in one re- 
cord position.) 

The packed decimal format permits 
greater utilization of disk storage capaci- 
ties. Thus, the RPG program permits numer- 
ic data in packed decimal format to be 
written onto disk for subsequent processing 
runs. 



FIELD LOCATION (COLUMNS 44-51) 

Columns 44-51 of the Input Specifications 
form are used to define the location of a 
field within the input record. The maximui 
length of a numeric field is 14 digits. 
The maximum length of an alphameric field 
is 256 characters. 

I£2I_lColHlfis_Mrii21 

This entry specifies the location of the 
leftmost position (i.e., the high-order 
position) of the field. The entry in 



columns 44-47 must be right- justified; 
leading zeros may be omitted. 

To_JColu!ns_48 :: 5lJ_ 

This entry specifies the location of the 
rightmost position (the low-order position) 
of the field. The entry in columns 48-51 
must be right- justified; leading zeros may 
be omitted. In Pigure 40, the field named 
DEPT is located in positions 5-8 of the 
input record. 

The fields of an input record may be 
described in any sequence. In Figure 40, 
they are shown in- numerical sequence (by 
field location) to make the example easier 
to understand. 

A one position field may be defined by 
placing its location into both From and To 
fields. 

A field location may be defined twice 
with two different names. It is also pos- 
sible to define fields within fields (e.g., 
CUSTHR in positions 1 to 27 with NUMBER in 
positions 1 to 10 and NAME in positions 11 
to 27) . Two or more fields may also over- 
lap each other. 
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Figure 40. Example of Specifying Input Fields 
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£§£2£3s_in_a_n_QR-Relationshi£ 



In many applications, records may contain 
almost identical fields or the same record 
type may be denoted by two or more record 
identification codes. This could be 
described to EPG as two entirely different 
record types. This however, will cause the 
programmer to describe the same information 
two or more times and additional object 
core requirements. To simplify this, BPG 
provides for records in an OR-relationship. 
It is possible to use one set of specifica- 
tions to describe fields that are contained 
in two or more different records in the 
same locations. In Figure 40, OR has been 
entered in columns 14-15. Columns 16 to 18 
must be blank. This specifies that the 
fields described in lines 030-100 are con- 
tained in input records that have a 5 in 
column 35 and no 11-punch in column 80, and 
in input records that have a 6 in cclumn 
35. 

Figure 40 shows that identifying indi- 
cator 14 need not be entered in the OR line 
because it has been previously specified. 
In OR-relationships, record identifying 
indicators need not be respecified. Howev- 
er, a different record identifying indica- 
tor may be specified in each OR line. 
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In this example, the field locations 
are not the same in both record types. 
Therefore, a separate record identifying 
indicator code must be specified for the 
second record type. 

The OR line indicates there is a second 
type of input record that contains the 
required information. However, field FLDC 
is not contained in the same locations. 
For this reason, the field FLDC must be 
described twice. Each of the two entries 
for FLDC must be related to the appropriate 
record type. This is accomplished by ent- 
ering the pertinent record identifyino 
indicator in Field-Record Relation (columns 
63-64) . (An indicator entered in Field- 
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Figure 41. Example of Using Field Record Relation Indicators 
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Record Belation is referred to as a field- 
record relation indicator.) 

Thus, if record identifying indicator 
14 is on, FLDC is taken from locations 
66-70 of the input record. If record iden- 
tifying indicator 16 is on, FLDC is taken 
from locations 61-65 of the input record. 

The use of an OR-relationship is not 
restricted to two record types. Any number 
of record types may be specified. 



DECIMAL POSITIONS (COLUMN 52) 

Any entry (0-9) in this column defines the 
associated field as a numeric field. Each 
entry in Decimal Positions: 

• Is used to determine the number of decim- 
al positions contained in the field spe- 
cified in Field Location. 

• Causes all zones of the field specified 

in Field Location tc be ignored during 
comparisons caused by a control-level 
or matching-fields specification. 
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In Figure 41, the fields named DIVSON, 
DEPT, EMPNO, and NAME are alphameric fields 
because no entry has been made in column 
52. The fields FLDA through FLDC are num- 
eric fields but they can contain only whole 
quantities without decimal fractions 
because a zero is entered in column 52 for 
these fields. 



Note: The same field name may be used for 
any number of fields of different records, 
provided that all these fields have the 
same length and the same number of decimal 
positions as the first field given this 
name. A field name is assigned only once 
by RPG. The same storage location is used 
for fields with identical names. 

Field names beginning with PAGE can 
only be used for page numbering. Field 
names beginning with IN cannot be used in 
an RLABL statement (for a user written 
exit) as this is reserved for indicators. 
The word ALTSE must not be used as a field 
name, nor can field names start with the 
letters TAB. 

Figure 42 shows a number of sample 
field names that are easy to read and sug- 
gest the function of the fields they 
represent. 
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Figure 42. Example of Field Name and Con- 
trol Fields 



FIELD NAME (COLUMNS 53-58) 

Each field defined must be given a field 
name. Once a name has been assigned to a 
field, it can be referred to in calculation 
and/or output-format specifications. 

The field name must begin with an 
alphabetic character in column 53. The 
field name may be alphamericand may be from 
one to six characters in length. Special 
characters and embedded blanks must not be 
used. 



DMiaiM_£lie_Same_Data_Field_as_AlEhameric 
and Numeric 

If the same physical field from an input 
record is to be used as both an alphameric 
and a numeric field, the field must be 
defined twice by assigning two different 
field names to the same location. 

Osina_In£Ut_Data_Fields_for_Constant_Data 

Constants are freguently used to describe 
information that is not changed with each 
record. It is usually not altered during 
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the object run. Examples of constants are 
date cards, or other data that may be 
changed for each run. 

The method of supplying this informa- 
tion to the program is by defining a spe- 
cial record type and by assigning a field 
name that is not otherwise used. This 
technigue also permits the entering of con- 
stants that are too large to be specified 
as literals in the source program. 

When only disk files are being pro- 
cessed, specifications for an additional 
card file are reguired for the constant 
information. The file must be specified as 

follows: 

1. in multifile programs using the match- 
ing technigue, the additional card file 
must be designated as a secondary file 
without matching fields. Thus, the 
additional card file will be processed 
immediately as the cards are read. 

2. In programs that do not use the match- 
ing technigue (e.g., single-file pro- 
grams or programs using the chaining 
technigue) the additional card file 
must be designated as a primary file. 
For detailed information about matching 
and chaining technigues, refer to the 
appropriate sections. 



Indicator L3 can be used to specify 
when the calculations for this control 
field are to take place, or when the totals 
for this field are to be printed or 
punched. More detailed information regard- 
ing the use of the control-level indicators 
is presented in the descriptions of the 
Calculation and Output-Format Specifica- 
tions forms. 

If a field specified in Field Location 
also has an entry in Control Level, the 
object program places the field into two 
storage areas. One area, known as a 
control-field holding area, is used for the 
controlling functions of the field. 

The user has access only to the second 
area. This can be done by specifying the 
field name on the Calculation Specifica- 
tions or the Output-Format Specifications 
form. 

It may be reguired to use a field for 
controlling functions but without consider- 
ing zone bits in the internal comparison of 
one record to the next record. If the zone 
bits are not to be used in an internal com- 
parison of control fields, specify the 
field as numeric by making a decimal entry 
(0-9) in column 52. Decimal alignment is 
not performed for numeric control fields. 
If the zone bits are to be used in an 
internal comparison, leave column 52 blank. 



CONTROL LEVEL (COLUMNS 59-60) 

A change in a control field causes all pro- 
cessing indicated by this change to be 
initiated as well as the processing indi- 
cated by all lower control levels. Columns 
59-60 are used to provide a convenient and 
simple method for specifying all control 
functions. 
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The field located in positions 1-4 of 
the input record (first entry in the 
example) is the highest level of control. 



In Figure 42, L3 in columns 59-60 
causes the field located in positions 1-4 
in the input record: 

1. To be placed into storage in one area 
with the zone bits removed from all 
positions of the field (this permits 
the use of the field for control 
functions) . 

2. To be placed in another field named 
DIVSON in numeric format. 

The HPG object program automatically 
performs the operations of storing the 
field twice and performing the appropriate 
zone elimination. No additional specifica- 
tions are required. 

Eules_for_Usina_Control_Fields 

The following points must be considered 
when using control-field specifications: 

1. Within each control level, the length 
of the control fields or the overall 
length of the split control fields must 
be the same. 

2. Split control fields: Several fields 
in an input record type can be speci- 
fied as one control field to form a 
split control field. 
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Split control fields of any one level 
must be specified in subsequent field- 
description lines. All fields are 
placed according to the sequence in 
which they are defined on the Input 
Specifications form. For example, the 
first field defined in the input speci- 
fications is placed in the high-order 
position, and the last field is placed 
in the low-order position. 

Control fields of one level can be spe- 
cified as numeric or alphameric altern- 
ately. If a control field is specified 
once as a numeric field, all control 
fields of the same level will be 
treated as numeric control fields 
throughout, even if they are specified 
as alphameric in other input 
specifications. 

The length of a packed numeric field is 
calculated as 2n-1, where n is the num- 
ber of characters contained in the 
input field concerned. If control 
fields of one level are specified as 
packed and unpacked fields alternately, 
the unpacked fields must always have 
the same (odd) length as the packed 
numeric fields. 
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NoifLL Packed data can occur only in 
disk records. 

If multiple record types are specified 
in an OR-relationship, an indicator 
entered in Field-Hecord Eelation can be 
used to relate control fields to the 



pertinent record types. The following 
rules apply: 

• The control-field specifications must 
be grouped by field-record relation 
indicators. 

• The control fields with no such indi- 
cators must be specified first within 
one record. 

• Fields other than control fields may 
be interspersed anywhere within the 
set of field descriptions. 

• Only a record identifying indicator 
from the main or an OB-relation re- 
cord type can be used in field record 
relationship of a control level. 



The contro 
record rel 
to be cont 
fied in th 
above. If 
are specif 
record rel 
control fi 
record rel 
when the a 
turned on. 
cation wit 
indicator 
disregarde 



1 fields that 
ation indicato 
ained in all r 
e OE-relation 

control field 
ied with and w 
ation indicato 
elds condition 
ation indicato 
ppropriate ind 
The control- 
hout a field-r 
specified is t 
d. 



have no field- 


>rs are 


assumed 


ecords 


speci- 


group 


described 


s of one level 


ithout 


field- 


■rs, on 


ly the 


ed by 


field- 


>rs are 


used 


icator 


is 


field 


specif i- 


ecord 


relation 


hen 





6. Control field specifications for a 
chained file are ignored by Epg. 

7. Control levels may be defined in any 
sequence. That is, L2 may appear 
before L1 on the Input Specifications 
sheet. 

Exam_ple_gf Using Split Control Fields 

Figure 43 shows an example of using three 
levels of control fields contained in four 
different records in an OR-relationship. 
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Figure 43. Example of Multiple Split Control-Field Specifications 
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Figure 44. Example, Record Locations 



Figure 44 shows the record locations 
from which the control fields will be taken 
when the different record types are read 
during execution of the object program. 

Eecord_tip_e_9_l: The 11 and L3 control 
fields are specified and conditioned by the 
field-record relation indicator 91 in lines 
02110-02130. The entries with indicators 
LI and L3 that are not conditioned by 
field-record relation indicators are disre- 
garded. Field-record relation indicator 91 



is not entered for the L2 control field 
specified in line 02070. Therefore, this 
L2 control field is used by the object pro- 
gram for records of type 91. 

R ec or d_ ty.£e_9 2 : L1 and L2 indicators are 
specified in lines 02140-02170. The speci- 
fications with the L3-indicators entry in 
lines 02090-02100 are used by the object 
program. 

Record ty pes 93 and 94: Control-field 
entries conditioned by field-record rela- 
tion indicators are not specified for these 
records. The contents of the fields speci- 
fied without a field-record relation indi- 
cator entry (lines 02050-02100) are 
obtained and processed by the object pro- 
gram for all three control levels. 

False control Levels 

Normally, different record types will con- 
tain the same number of control fields. 
However, some applications require a dif- 



Input Specifications Form 61 



ferent number of cont 
cards. In Figure 44. 
contains only the 12 
the item card contain 
trol fields. 

With normal RPG c 
break will be created 
card following a sale 
be recognized by an L 
diately following the 
Figure 44. 2) . This c 
coding shown in Figur 
four on the Calculati 
on indicator 11 when 
read. When the next 
control break (L1 wil 
L1 hold area does not 
L1 field) , no total o 
because indicator 11 
cations statement nin 
tions are then proces 
and statement five se 
This allows the norma 
occur. The correct o 
Figure 44.4. 



rol fields in some 
1, the salesman card 
control field while 
s both L2 and L1 con- 



01 



SMITH 



oding, a false control 

by the first item 
sman card. This will 
1 control break imrae- 

salesman card (see 
an be corrected by the 
e 44.3. Statement 
on Specifications sets 
the salesman card is 
item card causes a 
1 be turned on if the 
compare with the new 
utput will occur 
is on (Output Specifi- 
e) . Detail calcula- 
sed for the item card 
ts indicator 11 off. 
1 L1 control breaks to 
utput is shown in 



02 



100 


3 


100 


2 




2 




5 * 


101 


4 




4 * 




9 ** 




JONES 




* 


100 


6 


100 


2 




8 * 


101 


3 




3 * 




11 ** 



20 



Figure 44.2. False Control Level Break 
(Output Example) 
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Figures 44.1 False Control Level Break 
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MATCHING FIELDS OR CHAINING FIELDS (COLUMNS 
61-62) 

l53i£ili£3_Zisl3s 

Matching fields within a record are desig- 
nated by entering M1 to M9 in columns 61-62 
of the appropriate field-description- 
specifications line. These entries can be 
used for two purposes: 

1. Matching fields used with one input 
file: 

If only one input file is specified 
with matching field entries, these 
entries are used to sequence-check 
fields within the file. The MR indica- 
tor will not be turned on in such a 
case. 



In Figure 45, three 
input file are to b 
The compare operati 
matching fields of 
rds of the file is 
fields at the same 
three fields are tr 
is placed in the hi 
M1 is placed in the 



fields within the 
e sequence-checked, 
on between the 
two subsequent reco- 
made on all three 
time, (i.e. , the 
eated as one) . M3 
gh-order position, 

lcw-crder position. 



In column 18 of the associated File 
Description Specifications form, the 
programmer must indicate whether the 
file is in ascending or descending 
seguence. The example in Figure 45 is 
based on the assumption that the file 
has been specified to be in ascending 
sequence. 
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Figure 45. Example of Using Matching 

Fields in a Single Input File 

2. Matching fields used with several input 
files: 

In addition to the sequence checking 
described above, the matching fields 
are used to match records of the pri- 
mary file with those of secondary 
files. This applies when more than one 
input file is specified with matching 
field entries. The entries in columns 
61-62 determine which fields are to be 
matched. The comparison is made in the 
same manner as shown in Figure 46. For 
details, refer to the section P roc es- 
§iM_M u It i£le_Inp_ u t_Files . 

Bules for Using Matchin3_FieJ_ds 

The following rules must be observed when 
specifying matching fields. 

1 . There can be nine matching fields 
specified by indicators M1-M9. 

2. The locations of the matching fields 
within a record type of a file must 
remain fixed. (They can vary if field 
record relation is used) . 

3. When there is more than one record type 
in an input file, the locations of the 
matching fields in the various types of 
records need not be the same. 

4. The same number of matching fields must 
be specified on both the primary file 
and the secondary file. It is not 
allowed to specify M1, M2, and M3 in 
the primary file and only Ml and M2 on 
the secondary file. 

5. Matching field specifications M1 to B9 
must not be made for a chained file. 
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Figure 46. Comparing Matching Fields 

They can be used for a file retrieved 
with an RA file. 



If matching fields 
several records in 
number and level of 
must be specified f 
records. They must 
field length for th 
it is not permitted 
with only a matchin 
another record with 
field M2, or both M 
also not permitted 
matching field, for 
different lengths c 
tion lines. 



are specifi 
a program, 

matching f 
or each of 

also have 
e same leve 

to specify 
g field M1, 

only a mat 
1 and M2. 
to specify 

example M1 
n two field 



ed for 
the same 
ields 
these 
the same 
1. Thus, 

a record 

and 
ching 
It is 
the same 
, with 

descrip- 



7. 



Split matching fields must not be spe- 
cified. The object program places the 
fields defined with M1 to B9 in one 
holding area and compares them for 
matching and sequence checking at the 
same time. Thus, the matching fields 
are split fields themselves. 



8. 



Matching fi 
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internal compare operation for matching 
and/or seguence checking) . 

9. The length of a packed matching field 
is calculated as 2n-1, where n is the 
number of characters contained in the 
input field concerned. The calculated 
length is always an odd number. Packed 
format can occur only with disk 
records. 

If matching fields of one level are 
specified as unpacked and packed 
alternately, the lengths of the 
unpacked matching fields must be equal 
to the calculated lengths of the packed 
numeric matching fields. 

When matching fields have an even 
length in unpacked decimal format, the 
only way to specify these fields in 
packed and unpacked decimal format 
alternately is to define the first 
(high-order) column of both fields as 
unpacked numeric fields M2, and the re- 
mainder of the fields (i.e., the odd- 
length portion) alternately as the 
lower-level matching field H1. 

10. Field-Record relations for matching 
fields must be specified with record 
identifying indicators from the main 
specification line or an OR-relation 
line to which the matching field 
refers. If multiple record types are 
specified in an OR-relationship, an 
indicator entered in Field-Record Rela- 
tion can be used to relate matching 
fields to the pertinent record types. 
The following rules apply: 

• The matching field specifications 
must be grouped by field-record rela- 
tion indicators. 

• Matching fields with no such indica- 
tors must be specified first within 
one record. 

• Fields other than matching fields may 
be interspersed anywhere within the 
set of field description. 

The matching fields that have no field- 
record relation indicators are assumed 
to be contained in all records speci- 
fied in the OR-relation group described 
above. If matching fields of one level 
are specified with and without field- 
record relation indicators, only the 
matching fields conditioned by field- 
record relation indicators are used 
when the appropriate indicator is 
turned on. The matching field specifi- 
cation without a field-record relation 
indicator specified is then 
disregarded. 
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In the following examples the first 
entry is the match field and the second 
entry is the field-record relationship 
indicator. Assume that indicators 01 
and 02 are record identifying indica- 
tors in an OR relationship. 

VALID EXAMPLES 



1. 


2. 


3. 


4. 


5. 


6. 


M1 01 


M1 01 


H1 


H1 


M1 


M1 




M1 02 


H1 01 


M2 


M2 


M2 








M1 01 


M1 01 
M1 02 


M3 

M1 01 
M2 01 
M1 02 



INVALID EXAMPLES 



A. 


B. 


C. 


D. 


E. 


F. 


M1 01 


M1 


M1 


M1 01 


M1 


M1 


M1 


M2 01 


M1 01 


M2 01 


M1 L1 


M2 




M2 02 


M2 01 


Ml 02 

M2 02 

H3 




M1 01 
H1 02 
M2 01 
H2 02 



C h a i n i na_F i e 1 d s_i D i s k_ n li 1 

Two methods of chaining are allowed with 
1130 RPG. The preferred method uses the 
CHAIN operation discussed in the section 
Calculation_S£ecification i The following 
discussion concerns the alternative method 
of chaining and the required entries on the 
Input Specification sheet. 

Up to three chaining fields are per- 
mitted in a record. To specify chaining, 
enter the code that identifies the chaining 
field C1 to C3 in columns 61-62. 

A chaining field can be specified as an 
alphameric, or an unpacked numeric field. 
The format of the key field on disk can 
only be alphameric, therefore: 

• Alphameric fields are moved unchanged 
into the appropriate chaining fields (C1 
to C3) . 

• Unpacked numeric, fields will be moved in 
unpacked format, but with 'F' zones, into 
the appropriate chaining fields. 

• If a chaining field is specified altern- 
ately as numeric and alphameric it will 
always be handled as a numeric field. In 
other words the zone parts of the alpham- 
eric field will always be set to «F«. 
Note that all positions of the key field 
on disk must also have «F' zones if a 
chaining field is specified as numeric. 

The use of file chaining is explained 
in the section Chaining.. A chaining file 
can also be sequence-checked by entering 
H1-M9 in Chaining Fields (columns 61-62) on 



the line containing the specification for 
the appropriate field. 

If the same field is used for chaining 
and sequence-checking it must te defined 
twice using two different field names. 

Note: Matching field and control field 
specifications are not permitted on the 
chained file input records. 

FIELD RECORD RELATION (COLUMNS 63-64) 

This specification is used in conjunction 
with specifications for records in an 
OR-relationship. 

Enter in these columns the record iden- 
tifying indicator that determines which 
input record in an OR- relationship supp- 
lies the input field. 

In addition, any resulting indicators 
can be used in conjunction with any field 
which is not a control level or matching 
field. 

Control_levels_u^ed_in_connection_with 
field^recor^rilatiSIli* For details refer 
to the section 5ules_f or_Using_Control 
Fields, item 5. 

UsiM_matching_fields_to2ether_with_chain- 

ing_ field entries. See the section headed 
Rules_for_Usini~Control_Fields, item 10. 
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this function, readers should be 
ith chaining operations.) 



If a record identifying indicator is 
placed in Field-Record Relation, the 
chained record will be obtained only if any 
one of the record types specified in an 
OR-relationship is present, and the record 
identifying indicator (in Field-Record 
Relation ) is on. 

However, if a chaining field is speci- 
fied on a field description line and no 
entry is made in Field-Record Relation, the 
chained record will be obtained if any one 
of the record types specified in an OR- 
relationship is present. To condition 
chaining, any indicator may be used. 
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FIELD INDICATORS (COLUMNS 65-70) 



An entry in Field Indi 
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PIus_JColumns_65-661 



Enter the resulting indicator that is to be 
turned on whenever the value in the asso- 
ciated input field is greater than zero. 
This entry is used with numeric fields 
only. 

Minus (Columns_67-6 8}_ 

Enter the resulting indicator that is to be 
turned on whenever the value of the asso- 
ciated input field is smaller than zero. 
This entry is used with numeric fields 
only. 

Zero _or_Blank_JColumns_69-70}. 

Enter the resulting indicator that is to be 
turned on whenever the associated input 
field contains no value. This condition 
occurs, if (a) a numeric input field is 
zero or blank, and (b) an alphameric field 
is blank. Fields that are all zeros turn 
on blank indicators even though a plus or 
minus sign is present. 

Note_j. Alphameric input fields must not be 
assigned field indicators in Plus or Minus 
(i.e., columns 65-68 must be blank). If 
the input field does not contain the appro- 
priate value, the indicator is turned off. 

Codes Available for Ogg_as_Field_I_ndicators 

N urn eric_Indi cators. A 2-digit field indi- 
cator code is used for this specification. 
These codes, ranging from 01 through 99 can 
be defined one or more times on the form. 
If they are defined more than once, the 
second specification of this indicator 
resets it from the status it may have had 
resulting from the previous specification 
for it. 

Iot§l Defining these indicators means spe- 
cifying them in Field Indicators. This 
should not be confused with using these 
indicators. Using these indicators means 
specifying them in Indicators in the calcu- 
lation specifications or in Output Indica- 
tors in the output-format specifications as 
many times as required. In the latter 



case, they are merely tested to determine 
their status but they are not reset by the 
test. 

Halt_Ind ica. to r s . Nine additional indicator 
codes, referred to as halt indicators, can 
be used in the RPG program. For example, 
if H1 is placed in columns 69-70 (Zero or 
Blank) , it is turned on whenever the asso- 
ciated field of the current input record is 
blank or contains zero (s) only. These 
indicators can also be used to control pro- 
cessing in calculation and output 
specifications. 

If H1-H9 has been turned on during the 
processing of a record, the execution of 
the object program is discontinued on com- 
pletion of the processing of that record. 
However, processing will not be interrupted 
if a halt indicator that has been turned on 
is turned off by another specification 
before the program attempts to process the 
next input record. 

How_Field_Indicators_Are^urned_On_and_Off 

Field indicators entered in Plus, Minus, 
Zero, or Blank are turned on if the value 
in the tested input field is positive or 
negative, respectively. They are turned 
off if the associated input field of the 
next record of the same type contains a 
negative or positive value, respectively. 

Each field indicator is related to one 
record type. Therefore, a field indicator 
cannot be turned off until the associated 
record type is read again or until it is 
defined in some other specification. One 
or more field indicators can be on at one 
time. 

Zero or Blank indicators are initially 
turned off by the program and are not 
turned on if the associated field is 
"Blanked after" on the Output 
Specifications. 
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Figure U6.1. Setting of Field Indicator 



of FLDG and then reset to reflect the sta- 
tus of FLDH. Consequently, the status of 
FLDG is lost and indicator 29 will only 
reflect the status of FLDH. 



ling field. If the sign is in the normal 
position, enter an S in column 74. Leave 
these columns blank if the field is not a 
sterling field. 



STERLING SIGN POSITION (COLUMNS 71-74) 

Enter in these columns the position in the 
record that contains the sign of the ster- 
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FIELDS OF THE CALCULATION SPECIFICATIONS 
FORM 

The Calculation Specifications form is used 
to specify the operations to be performed 
by the object program upcn the input data 
and upon data obtained as a result of other 
calculations. Four general rules govern 
the writing of calculation specifications: 

1. Each operation is specified on one line 
of the form. 

2. Detail calculations must precede all 
total calculations. 

3. Calculations are specified in the order 
they are to be performed. 

4. Subroutines must follow all other 
calculations. Subroutines need not 
be specified in the order in which 
they are used. 

The Calculation Specifications form 
is divided into three categories as illus- 
trated in Figure 47. The circled numbers 
in Figure 47 refer to the item numbers in 
the following text. 



1. £onditionina_fields. Entries in 

columns 7-17 determine upon what condi- 
tions the calculations are to be 
performed. 

2 - £a lcul at i n3_f i el d s . Entries in columns 
18-53 define the kind of calculation to 
be performed, the data to be used in 
the calculation, and the result field 
of the calculation. 

3. Te st ina_f ield s . Entries in columns 
54-59 cause the testing of result 
fields and the setting of indicators 
that can be used to condition subse- 
quent calculation or output-format 
specifications. 



CONDITIONING FIELDS (COLUMNS 7-17) 

Contrgl_Level_JColumns_7-81 

An entry, (L1-L9, LO , LE) in columns 7-8 
indicates that calculations are to be per- 
formed at total time and determines the 
control level of the calculation specified 
in columns 18-59. 
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Figure 47. The RPG Calculation Specifications Form 



Calculations Specifications Form 6 9 



The entries for these columns are the 
control- level indicators L1 through L9, as 
defined in Control Level (columns 59-60) of 
the Input Specifications form. In addi- 
tion, the two control-level indicators L0 
and LE, which are discussed below, may be 
specified. A control-level indicator is 
turned on by a control break. It is on 
during total time and it remains on for the 
following detail time, which includes both 
the calculating and the printing of the 
detail record. 

A control break for a specific control 
level forces all lower control-level indi- 
cators to be turned on. For example, an L3 
break causes L3, L2, and L1 indicators to 
be turned on. 

When an input record has been read, a 
test is made to determine if a control 
break has occurred. Total calculations are 
performed when this test is completed and 
before the record that caused the control 
break is processed. 

Total calculations and total output 
lines are processed at the beginning of a 
program run as follows: 

1. If no control fields are specified, 
total calculations and total output 
lines are bypassed for the first record 
read. 

2. If control fields are specified, total 
calculations and total output lines are 
bypassed for all records read until the 
first record that contains control 
field information has been processed. 
This applies also to the calculations 
specified with an L0 indicator- 

3. The control fields are initialized by 
the program to hexadecimal zero (see 
the section Data_Format) . Therefore, 
if the first record has a blank or zero 
control field it will cause a control 
break. 

4. If control fields are specified in the 
program in some records and not in 
others, at least one record with con- 
trol fields should be processed. If 
not the LE indicator will not be turned 
on at the end of the job. 

LE_i L A ST_ R EC ED]__I N DI C A TOR . The indicator 
LE is turned on after the last input record 
has been read and calculated, and after the 
specified detail output records have been 
processed. At this time, the control-level 
indicators L1 through L9 are also turned on 
and final totals can be performed. 

VQ_,,(i;EVEL ZERO) INDICATOR. The L0 indica- 
tor is turned on at the beginning of a job 
and before a record is read. It is not 



turned off by the EPG object program at any 
time. The L0 indicator cannot be turned 
off by the programmer. By specifying L0, 
total calculations can be performed even 
though a control break has not occurred. 
This operation is useful whenever totals 
are to be accumulated when no control break 
has occurred. 



aSING_CONTEOL_LEVEL_SPECIFICATIONS- 
48 illustrates six control-break 
specifications. 
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Figure 48. Example of Using Control Level 
Indicators in Calculation 
Specifications 



SE_iSUBBOUTIN E_IDENTIFIC ATI0N1 : The entry 
SE in these columns 7-8 identifies this 
line as a specification with a subroutine 
(see Subroutines) . All RPG subroutines 
must have SR in columns 7-8. Control 
levels are not used in subroutines, as the 
subroutine may be invoked by a specifica- 
tion which is at either detail or total 
calculations. 
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Figure 49. Example of Indicators in Cal- 
culation Specifications 

ther column 9, 12, or 15 (whichever is 
appropriate) . 

The following considerations apply to 
the use of indicators in columns 9-17 of 
the Calculation Specifications form: 

1. If columns 9-17 and columns 7-8 are 
blank, the calculation is performed 
each time a detail record is read. 

2. If a record-identifying indicator that 
has been defined in columns 19-20 of 
the Input Specifications form is placed 
in Indicators on a particular calcula- 
tion line, this calculation is per- 
formed only if a record of the type 
associated with the record identifying 
indicator is read. 

3. A field-indicator code controls the 
calculation according to the status of 
the associated input data field. 

4. A resulting indicator specified in 
columns 54-59 of a preceding calcula- 
tion line controls the current calcula- 
tion according to the condition that 
occurred in the result field of the 
preceding calculation. (This feature 
has not yet been discussed.) 

5. A control-level indicator (L1-L9) that 
is used with a particular record iden- 
tifying indicator defined on the input 
specifications form permits the calcu- 
lation to be performed at detail time 
but only on the first record of the 
control group specified. 

6. If the matching-record indicator (ME) 
is placed in Indicators, the calcula- 
tion is performed only if there is a 
matching record in a secondary input 
file. 



7. Halt indicators H1 through H9 are norm- 
ally used to suppress a calculation 
when an error has been detected in the 
input data or during a previous 
calculation. 

8. Overflow indicators OF and OV permit 
the calculation to be performed only if 
a page overflow has occurred. 

9. If columns 9-17 of the specification 
line contain entries which are exactly 
identical to the preceding line, no 
repetitive test will be made. (The 
core storage requirements for testing 
indicators are also dropped.) Conse- 
quently, the programmer should group 
his calculations by identical condi- 
tioning indicators to reduce core and 
improve throughput. 

Columns 9-17 may contain a combination 
of the types of indicators discussed in the 
preceding text. 

Figure 49 shows some examples of indi- 
cators used in columns 9-17 of the calcula- 
tion lines. The numbers to the right of 
the entries refer to the it«!m numbers in 
the text below. 

1. In this example, columns; 7-17 are 
blank. This specifies that the calcu- 
lation is to be performed on each 
detail record read. 

2. In this example, the associated calcu- 
lation is performed only if indicator 
16 is on. 

3. Assume that indicator 16' is a record- 
identifying indicator defined in 
columns 19-20 of the input specifica- 
tions, and indicator 18 is a field 
indicator defined in Zero or Blank on 
the Input Specifications; form. Then 
the associated calculation is performed 
only if record-type 16 is present and 
the field assigned to indicator 18 is 
not blank. 

4. The calculation specified on this line 
(columns 18-59) is performed only if 
indicators 16 and 19 are on and indica- 
tor 18 is off. 

5. This entry specifies that the calcula- 
tion be performed at detail time 
whenever control-level indicator L1 and 
indicator 24 are on for the first card 
of a new group. 

6. This entry specifies that the calcula- 
tion be performed only if indicator 16 
is on and there is a matching record 
condition. (For example, when fields 
from detail records are to be multi- 
plied by a factor contained in a master 



Calculations Specifications Form 71 



IBM 



INTERNATIONAL iUSINISS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 

IBM System 360 



Form X24-1351 

Printe4 In U.S.A. 



Punching 
Imtruction 


Grophi. j 
















Punch 

















m 



73 76 77 78 79 BO 



Program 
Idcnlificalia 









| 

E 

i 


2 


£ 


Indicators 








































































£ 

52 


z 

■< 
a 

X 
53 


Resulting 
Indicators 
































U«. 


i 

% 

o 
u 

7 


A 


d *r 


d 


Factor 1 

IB 19 20 31 33 33 24 35 34 27 


Operation 

II 39 30 31 32 


Factor 2 

33 34 35 36 37 38 39 40 41 42 


Retult Field 

43 44 45 46 47 48 


Fi.ld 
49 50 51 


Ptui 


Minui 


Zero 

Blank 


Comments 

60 61 62 63 64 65 66 67 68 69 70 73 72 73 74 


Compare 


High 
t>2 


Low 
t<3 


Equal 
1=] 


1 

9 




11 


3 

Z 

1! 


n 


U 


i 


16 


17 


54 35 


56 57 


56 59 





1 




c 








1 


i 




1 


2 




1 


3 






















S 


E 


T 





u 












































2 


1 











































2 




c 








1 


4 




2 


i 








A 




















A 


D 


D 






B 




















c 
















H 




















































1 




c 












































5 


E 


T 





F 












































2 


1 











































4 




c 

























































































































































































































































































Figure 49.1 Calculations Specifying an AND Condition 



record, the program must have a means 
of ensuring that the detail record has 
been matched with the appropriate mas- 
ter record.) 

7. The entry NH1 in this example prevents 
the object program from performing the 
associated calculation if an error con- 
dition has occurred that resulted in H1 
being turned on. This application of 
halt indicators prevents the calcula- 
tion of erroneous data. 

8. This entry specifies that the calcula- 
tion be performed during the detail 
cycle follo.wing page overflow and 
printing of the overflow lines. 
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CALCULATING FIELDS 

This section describes the actual calcula- 
tion specifications. These specifications 
(columns 18-53) are used to define the 
following: 

1. The data fields to be used (Factors 1 
and 2) . 

2. The type of operation to be performed 
(operation) . 

3. The result field (columns 43-53) . 
General_Descri£tion_of_Data_Fields 

1. Field Name is to be used in calcula- 
tions and must be defined in either 
columns 53-58 (field name) of the 
Input Specifications form, or columns 
43-48 (result field) of the Calcula- 
tions Specifications form. The first 
chctracter of a field name must be 
alphabetic. The length must not 
exceed 6 characters. Special 
characters and embedded blanks must 
not be used. 

2. Literals are the actual data to be 
operated on, rather than a name repre- 
senting the location of data in 
storage. Literals may be numeric or 
alphameric and must be left- justified. 

3. Label is the name of a subroutine begin 
or end statement, or a tag statement. 
The first character must be alphabetic. 
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The length must not exceed 6 charac- 
ters. Special characters and 
embedded blanks must not be used. A 
label cannot have the same name as a 
field. 



Numeric_Literals i 

A numeric literal may 
nation of the digits 
decimal symbol and/or 
minus sign may also b 
tors (e.g., a comma b 
and hundreds position 
Numeric literals may 
long, (The European 
denote the decimal po 
inverted print option 
RPG control card) 
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through 9. one 
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e used. Other separa- 
etween the thousands 
s) must not be used, 
be up to 10 characters 
format of commas to 
int may be used if the 

is selected in the 



!aIes_for_Formina_Numeric_Literals 

1. Blanks must not appear within a numeric 
literal. 

2. The sign, if present, must be the left- 
most character. If a literal is 
unsigned, it is treated as positive. 

3. The decimal point may appear anywhere 
in the literal. 

4. Numeric literals must not be enclosed 
in apostrophes. 

J^lEliaseric^Literals^ 

Any set of characters enclosed in apos- 
trophes is treated as an alphameric liter- 
al. Alphameric literals may be used for 
compare, move, and table-lookup operations, 
but they must not be used in arithmetic 
operations. 

Iules_for_Formin 3 _Al£hameric_Literals 

1. Alphameric literals must be enclosed in 
apostrophes. 

2. Any characters of the EBCDIC character 
set may be used in an alphameric liter- 
al. Blanks in the body of the literal 
are treated as valid characters. The 
maximum length of alphameric literals 
is 8 characters, excluding the two enc- 
losing apostrophes. 

3. An apostrophe may be included in a lit- 
eral by entering two consecutive apos- 
trophes. For example, the literal o'c- 
lock would be coded as *o» •clock'. 

Iactor_JLiColumns__18-27]_ 

The specifications in Factor 1 may be a 
field name or a literal. Both field names 
and literals must be left- justified. They 
may be defined as alphameric or numeric, 



depending on the calculation to be 
performed. 

Figure 50 illustrates samples of Factor 
1 entries. 

The numbers in the right-hand margin 
of Figure 50 refer to the item numbers in 
the following text. 
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Figure 50. Sample Entries under Factor 1 
on the Calculation Specifica- 
tion Form 



1. GBOSS is a field name that may have 
been defined, for instance, on the 
input specifications form. 

2. NETAMT may be the name of a result 
field of another calculation, or of an 
input field defined on the input Speci- 
fications form. 

3. The numeric literal in the example 
could be used to determine if the con- 
tents of a specific input field are 
higher or lower than this guantity. 
The position of the decimal point must 
be indicated if the number is not an 
integer. No other function is 
permitted. 

4. An alphameric literal, like the one in 
this example, can be compared against 
the contents of a data field, or moved 
into a data field, etc. 

5. This example shows how to specify an 
apostrophe within an alphameric liter- 
al. The literal shown in this example 
would be printed as O'NEILL. 

factor _2_JColumns_33-421 



The description of Factor 1 also applies to 
Factor 2. 
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Operation (Columns_28-32}. 

Entries in these columns specify the opera- 
tion to be performed using the entries in 
Factor 1, Factor 2, ana Result Field. Each 
operation is specified by placing the 
operation code left- justified in Operation 
(columns 28-32) . For detailed information 
refer to the section Entries_in_the_0£era z 
t ion_F ie Id • 

M§uAi_I±§IiL!££!:I:S m .2s_Jj3-Ji81. 

Entering a field name in Result Field 
causes the specified number of core storage 
positions to be reserved for calculation 
results. The name in Result Field must be 
alphameric and left- justified. It must not 
be more than six characters in length; it 
must not contain blanks, or special charac- 
ters, and the first character must be 
alphabetic. 

The same name can be used several times 
in different calculations if the length of 
the field and the number of decimal posi- 
tions are the same for all calculations. 

Figure 51 illustrates sample result- 
field entries. On the first line, GROSS is 
multiplied by DRATE, and the result is 
placed in DISCNT. The contents of DISCNT 
are then used as Factor 2 on the next line 
to calculate the net amount which is placed 
in NETAHT. The same field DISCNT is then 
used in Factor 1 on the next line to cal- 
culate total discount, which is placed in 
TOTDIS. 



Iield_Length_JColumns_it 9^511 
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ntry specifies the length of the 

field, (i.e., the number of posi- 
to be reserved for the field speci- 
n Result Field) . The unpacked length 
e specified. The maximum length of 
c fields is 14 digits. The maximum 
of alphameric fields is 256 charac- 
In Figure 51 the field DISCNT is 
ied to have a total length of 8 



Note.: If the length of an arithmetic 
result exceeds the specified length of the 
associated result field, the leftmost 
digits are, truncated. Any resulting indi- 
cators wili be set according to the trun- 
cated field. 

If the same result field name is used 
in more than one calculation, the field- 
length specification and the decimal posi- 
tion specification need not be specified 
more than once. If the length of and the 
number of decimal positions in a result 
field has been established on the Input 
Specifications form, entries in Field 
Length and Decimal Position on the Calcula- 
tion Specifications form are not required. 
However, if such entries are made, they 
must not contradict the related entries on 
the Input Specifications form. 

Jotej. If half-adjustment (rounding) is 
specified, the entries in Field Length and 
Decimal Position refer to the length of the 
result field after half-adjustment. 
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Decimal Position (Column_52j. 

An entry (0-9) in Decimal Position identi- 
fies the associated result field as numeric 
and specifies the number of positions to 
the right of the decimal point in the 
result field. An entry must be made in 
this column for all arithmetic operations 
if the field is not specified elsewhere. 
If no decimal positions are to be retained 
in the result field, enter 0. Otherwise, 
enter one of the digits 1-9, as required. 
In Figure 51 each result field is specified 
to have two decimal positions. 

Notej. The number of decimal positions must 
not exceed the specified length of the 
result field. 

If the result field is alphameric, 
leave this column blank. 

Half-Adj[ust_JColumn_531 

An H in Half-Adjust specifies half- 
adjusting (or rounding) of the result. 

If the number of decimal positions of 
the arithmetic result is less than or equal 
to the specified decimal positions of the 
result field, no half-adjusting is possi- 
ble. If the arithmetic result has more 
decimal positions than the specified result 
field, an H in Half-Adjust causes the a- 
rithmetic result to be truncated (by drop- 
ping the rightmost digits) until the result 
is one digit longer than the specified 
result field. The absolute value of the 
low order digit of the (truncated) result 
is added to the absolute value of the 
(truncated) result. The rightmost digit is 
then dropped, the original sign (plus or 
minus) is restored, and the adjusted result 
is moved into the specified result field. 
Because of this, rounding always occurs 
away from zero for both positive and nega- 
tive fields. 



off depending on the result of this test. 
They can be used to control subsequent cal- 
culation operations or to control output 
operations. The specification is used in 
six ways: 

1. To determine whether the result of an 
arithmetic operation is plus, minus, or 
zero. (In the case of half-adjustment, 
the resulting indicator refers to the 
result after half-adjustment.) 

2. To test the result of a compare opera- 
tion to determine if: 

Factor 1 > Factor 2 — High 
Factor 1 < Factor 2 — Low 
Factor 1 = Factor 2 — Equal 

3. To define the type of LOKOP operation 
that determines: 

a. If the table argument next-higher 
than the search argument is found. 

b. If the table argument next-lower 
than the search argument is found. 

c. If the table argument equal to the 
search argument is found. 

To place the indicator in the correct 
column, the programmer should think in 
terms of the table (Factor 2) rather 
than the search argument (Factor 1) . 

N°±£JL If an equal-search resulting 
indicator is specified, it takes prece- 
dence over either high or low indica- 
tors if an equal-table value exists. 

4. To define a TESTz operation as to what 
type of zone is to be tested. (See the 
definition under TESTZ) . 

5. To define SETOF and SETON operations as 
to what indicators are to be turned off 
or on. 



TESTING FIELDS 

The last portion of the Calculation Speci- 
fications form is used to test the result 
of a calculation, to set indicators, etc. 

Eesultina_Indicators (Columns 54-59) 

This specification may be used to test the 
value of a result field after the comple- 
tion of an operation. The indicators 
entered in columns 54-59 are turned on or 



6. As an option to determine the results 
of a CHAIN operation. {See the defini- 
tion under CHAIN) 

The entries for this specification can 
be any of the indicator codes. They can be 
defined one or more times on the form. If 
these indicators are defined more than 
once, a subsequent specification of the 
indicator resets it from the status it may 
have had from a previous specification. 
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Figure 52. Summary of Conditions that Turn on Indicators in columns 54-59 
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Figure 53. Example of Using Resulting Indicators 
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indicator. This means that one or more 
resulting indicators can be on at one time. 



Resulting indicators are not reset 
(turned on or off) until the next time a 
calculation is performed for which the pro- 
gram specified the indicator as a resulting 
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On the first line in Figure 53 DISCNT 
is subtracted from GROSS and the result is 
stored in NETAMT. If the answer is a minus 
number, indicator 10 is set on. If the 
answer is zero, indicator 15 is set on. 
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On the second line in Figure 53 the Comments (Columns 60-74) 
literal JANUABY is compared against the 

indicator 2U D if;nrn^ the rSSUlt 1S egUa1 ' Th6Se COlUI " nS »»* be used for comments and 

indicator 24 is turned on. are not used by the program. 
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Arithmetic Operations 



Move Operations 



Testing or Compare Operations 



Turning Indicators ON or OFF 



Table Operations 



Branching ana Exit Operations 



Random Retrieval from ISAM or 
Sequential Disk File 



Branch to Exception Output 



Operation 

Add 

Zero and Add 

Subtract 

Zero and Subtract 

Multiply 

Divide 

Move Remainder 



Move 
Move-Leftmost-Characters 

Move Low-to-High Zone 
Move High-to-Low Zone 
Move High-to-High Zone 
Move Low-to-low Zone 



Compare 
Test Zone 



Set Indicators on 
Set Indicators Off 



Table Lcokup 



Branching (or Go To) 
Providing a Label for GOTO 
Exit to Assembler 

Subroutine 
RPG Label 
Beginning of RPG 

Subroutine 
End of EPG Subroutine 
Branch to RPG Subroutine 
chaining 



Output Records 
During calculations 



Code 

ADD 

Z-ADD 

SUB 

Z-SOB 

MULT 

DIV 

MVR 



MOVE 

MOVEL 

MLHZO 

MHLZO 

MHHZO 

MLLZO 



COMP 
TESTZ 



SETON 
SETOF 



LOKUP 



GOTO 

TAG 

EXIT 

RLABL 
BEGSR 

ENDSR 

EXSR 

CHAIN 



EXCPT 



Figure 54. Entries in the Operation Field 



ENTRIES_IN_THE_OPERATION_FIELD 

Figure 54 sumarizes the RPG operations. 

ARITHMETIC OPERATIONS 

The fields or literals involved in these 
operations must be numeric. All arithmetic 
operations are performed with automatic 
decimal alignment. 

RPG cannot detect an arithmetic over- 
flow so the user must ensure that the 
length of any field involved in arithmetic 
operations does not exceed 14 digits. This 
includes decimal alignment when necessary. 
The resulting field length after decimal 
alignment and/or half-adjusting must not 
exceed 14 digits. Resulting indicators^ 
(columns 54-59) may be used with all arith- 
metic operations. 



Two of the fields specified for an a- 
rithmetic operation may be specified as the 
same field. For example, the literal 1 
might be added to the field COUNT, and the 
resulting sum could replace the value pre- 
viously in COUNT. In this case, COUNT is 
specified in both Factor 1 and Result. 

Add-ilSP-L 

This operation causes the contents of the 
field in Factor 2 or the literal placed in 
Factor 2 to be added, algebraically, to the 
literal or the contents of the field in 
Factor 1. The result of the addition is 
placed in the result field specified in 
columns 43-48. 

1 e r o_ a n d_ A d d_ i Z^AjD Dl 

This operation causes the result field to 
be set to zeros and then causes the numeric 
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literal or the contents of the numeric 
field in Factor 2 to be placed in the 
result field. Factor 1 is not used in this 
operation. This operation is normally used 
to change the sign of a numeric field. 

Subtract__(SOBl 

This operation causes the numeric literal 
or the contents of the field in Factor 2 to 
be subtracted, algebraically, from the lit- 
eral or the contents of the field in Factor 
1. The result of this subtraction is 
placed in the specified result field. 

Zero a nd Su btract .Jgzgl'jl 

This operation causes the negative of the 
numeric literal or the negative of the con- 
tents of the field in Factor 2 to be placed 
in the specified result field after the 
result field has been set to zeros. Factor 
1 is not used in this operation. 

MuIii£ll_iMULTl 

This operation causes the literal or the 
contents of the field in Factor 1 to be 
multiplied, algebraically, by the literal 
or the contents of the field in Factor 2. 
The result of this multiplication is placed 
in the specified result field. 

Only the number of decimal positions 
specified in column 52 is retained. Any 
excess low-order (rightmost) decimal posi- 
tions are dropped. If the arithmetic 
result is then longer than 14 digits, all 
high-order (leftmost) positions of the 
result in excess of 14 digits are truncated 
(dropped) . The remaining digits of the a- 
rithmetic result are placed in the speci- 
fied result field. 

5iliie_iDIVl 

This operation causes the literal or the 
contents of the field in Factor 1 to be 
divided by the literal or the contents of 
the field in Factor 2. The result of this 
operation (quotient) is placed in the spe- 
cified result field. The literal or the 
contents of the field in Factor 2 must not 
be zero. Any remainder that results from 
this operation is lost, unless the move- 
remainder operation is specified as the 
next operation. If the move-remainder 
operation is used, half-adjusting (round- 
ing) must not be specified for the divide 
operation. 

The following formulas can be used to 
determine the highest number of positions 
(or decimal positions) available in any one 
of the fields. They can also be used to 
check in advance whether the pertinent 
field lengths are such that a given divi- 
sion can be executed. 



L+D-D-D< 14; and 
2 1 2 r 

L-D+D+D<14; and 
1 1 2 r 
in the case of half-adjustment, 

L-D+D+D< 13, 
1 1 2 r 



where 



Length of Factor 1 (dividend) 



D = Number of decimal positions in 
1 Factor 1. 

L = Length of Factor 2 (divisor) . 
2 

D = Number of decimal positions in 
2. Factor 2. 

D = Specified number of decimal 
r positions in the result field 
(quotient) . 

The number of decimal positions in each 
of the three elements of a division should 
satisfy the following condition: 

A=D-D+D = 
r 1 2 

If this is not the case, either the 
dividend or the divisor will be adjusted 
(padded) by adding zeros to the right, 
depending on the following conditions: 

A > implies padding of dividend 
A < implies padding of divisor 

The number of zeros added is equal to the 
absolute value of A. 

Note: While a dividend may have the value 
of 0, a divisor of will cause an error 
wait. The operator may terminate the job 
or continue with a amount in the result 
field. If the programmer does not wish the 
operator to have this decision, then the 
divisor should be tested for and appro- 
priate steps taken. A dividend of zero 
will always result in a zero result field. 

l22S_Iemainder_JHVRl_ 

This operation is used to move the remain- 
der of a divide operation to a separate 
field that has been set to zero by RPG. If 
BVE is used, it must immediately follow the 
divide operation. Figure 55 shows an 
example of using the BVE operation. 
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Figure 55. Example of Using the MVE Operation 



The remainder is placed in a field named 
STOBE. The field that contains the remain- 
der must be specified in the result field. 
The value of the remainder can be deter- 
mined by the following formula: 

E = Dividend - Divisor x Quotient 

The result field of an MVB operation may be 
assigned resulting indicators in columns 
54-59. Factor 1 and Factor 2 must not be 
used in an MVE specification. Decimal a- 
lignment is performed by the RPG program. 
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conditions (control level or indica- 
are specified for a DIV operation, 
me conditions must be established for 
sociated MVE operation. The MVE line 
ontain all the indicators which are 
ied in the DIV line. However, extra 
tors are permitted in the MVB line, 
ontrol level is specified for the DIV 
ion, the same or a higher control 
must be entered in columns 7-8 of the 
ne. If the DIV operation is executed 
ail time (columns 7-8 blank) , the MVB 
ion must also be performed at detail 



MOVE OPERATIONS 

The MOVE and M0VE1 operations instruct the 
RPG program to move data. The mnemonic 
MOVE or MOVEL must be placed in Operation, 
columns 28-32. The literal or the name of 
the field that is to be moved is placed in 
Factor 2. Columns 43-48 of the result 
field must contain the name of the field 
into which data is to be moved. If this 
result field is not defined elsewhere in 
the program, its length must be specified 
in columns 49-51. An entry in column 52 is 
required if this result field is numeric. 



Factor 1, Half-Adjust and Resulting 
Indicators may not be used in a MOVE or 
HOVEL specification. 

By means of the MOVE and MOVEL opera- 
tions, numeric fields may be changed to 
alphameric fields, and alphameric fields 
may be changed to numeric fields. To 
change a numeric field to an alphameric 
field, place the name of the numeric field 
in Factor 2 and use an alphameric result 
field. To change an alphameric field to a 
numeric field, place the name of the 
alphameric field in Factor 2 and use a num- 
eric result field. No decimal alignment is 
performed when a move operation is used. 

No sign checking will be performed on 
moves to a numeric field. 

The MLHZO, MHLZO, MHHZO, and MLLZO move 
operations instruct the RPG program to move 
zones. 

Move__lM0VE}_ 

The MOVE operation causes the literal or 
the contents of the field in Factor 2 to be 
placed in the specified result field. The 
field or literal in Factor 2 may be alpham- 
eric or numeric. Factor 1 is not used in 
this operation. 

If Factor 2 is shorter than the speci- 
fied result field, Factor 2 is moved to the 
rightmost positions of the result field as 
illustrated in Figure 56. The excess left- 
hand positions of the result field are not 
disturbed. 

If Factor 2 is longer than the result 
field, the excess leftmost positions of 
Factor 2 are not moved, as illustrated in 
Figure 56. 
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Before Move 
Operation 



iesu It Field 



Factor 2 



The MOVE operation can be performed on 
both numeric and alphameric fields. In 
addition, an alphameric field can be moved 
into a numeric field or vice versa. 
Resulting indicators must not be used in 
MOVE specifications. Decimal alignment or 
sign checking is not performed for this 
operation. 
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Move Operation 



Move_Left (MOVEL]_ 

The MOVEL. operation causes the literal or 
the contents of the field specified in Fac- 
tor 2 — beginning with the leftmost 
character — to be moved left- justified 
into the specified result field. Alphamer- 
ic data can be moved into numeric fields, 
and vice versa. Decimal alignment is not 
performed for this operation. 

The format of the MOVEL operation is 
shown in Figure 57. 

The data defined in Factor 2 is moved 
into the specified result field left- 
justified. If the result field is longer 
than Factor 2, the excess right-hand posi- 
tions of the result field remain undis- 
turbed. If the result field is shorter 
than Factor 2, the excess right-hand posi- 
tions of Factor 2 are not moved. 

If Factor 2 is shorter than the (numer- 
ic) result field, the sign of Factor 2 is 
not moved. If Factor 2 is equal to or 
longer than the (numeric) result field, the 
sign of Factor 2 is moved into the right- 
most position of the result field. 

If a numeric field is moved into an 
alphameric result field that is equal to or 
longer than Factor 2, the sign of the num- 
eric field is moved into that position of 
the result field that contains the right- 
most position of Factor 2. If the alpham- 
eric result field is shorter than the num- 
eric Factor 2 field, the sign is not moved. 

Three examples in Figure 58 illustrate 
the function of the MOVEL operation. 
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Hove_Zone 

This operation has four variations. In 
each case, the zone portion of the speci- 
fied position (L: Low-order, H: High- 
order) in the field in Factor 2 is moved to 
the specified position (L: Low-order, H: 
High-order) of the result field. 

Factor 1 is not used in this operation. 
The field which is specified to use the 
high zone (H) can only be an alphameric 
field. 



Factor 2 can be numeric or alphameric, but 
the result field must be alphameric. 



Mo ve_Hi2h2 to-Low Zone 



operation 
position o 
rightmost 
The field 
If the fie 
eric data, 
formed, pr 
as an alph 
may be num 



moves the zo 
f the field 
position of 
in Factor 2 
Id in Factor 
this operat 
ovided that 
americ field 
eric or alph 



iMIML- This 
ne in the leftmost 
in Factor 2 to the 
the result field, 
must be alphameric. 

2 contains only num- 
ion can still be per- 
the field is defined 

The result field 
americ. 



H 2 v e_Lo«:r t o^H iah Zone (M 1 H Z 0J. . This 

operation moves the zone in the rightmost 
position of the field in Factor 2 to the 
leftmost position of the result field. 



«2 ig_liia h-£ o - H i a h Z o n e_ J M H H Z 0J. . This 

operation moves the zone in the leftmost 
position of the field in Factor 2 into the 
leftmost position of the result field. 
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Low Zone (MLLZO].. This opera- 
he zone in the rightmost posi- 
field in Factor 2 into the 
sition of the result field. 

the result field may be 
r numeric. A result field spe- 
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If the literal or the data in the field 
in Factor 1 is greater than the literal or 
the data in the field in Factor 2 (F1>F2) , 
the indicator specified in High (columns 
54-55) is turned on. 

If the literal or the data in the field 
in Factor 1 is smaller than the literal or 
the data in the field in Factor 2 (FKF2) , 
the indicator specified in Low (columns 
56-57) is turned on. 

If the literal or the data in the 
field in Factor 1 equals the literal or 
the data in the field in Factor 2 (F1=F2) , 
the indicator specified in Equal (columns 
58-59) is turned on. 

A result field must not be used ir com- 
pare specifications. 

The following considerations apply to 
the COMP operation: 

1. Alignment of the Factor 1 and Factor 2 
fields depends on whether they are num- 
eric or alphameric. 

When numeric fields are compared, 
fields of unequal length are aligned at 
the implied decimal point. Excess 
positions in numeric fields are assumed 
to be filled with zeros. 
When al£hameric fields are compared, 
fields of unequal length are aligned at 
their leftmost characters. The excess 
right-hand positions of the shorter 
field are assumed to be blank. 

2. For numeric fields, the maximum length 
is 1<J digits. 



For alphameric fields, the maximum 
length is 40 characters. 



arisons are algebraic, 
on can be performed by 
tine programmed to meet 
nts. Figure 61 shows 
ring the absolute value 
1. The ADD operation 
ample places the arith- 
tents of FACT1 and FACT 
eld FACT2. Indicator 
he sum is negative. In 
ontains the next opera- 
the negative of the 

placed into the com- 

FACT2 is positive (or 
ation to be executed is 

The actual value 
s moved into CFLD. 

COMP statement that 
he literal 10000.0 and 
indicators 31, 32, or 

result of the compare 



All numeric comp 
An absolute comparis 
means of a short rou 
the user's requireme 
the example of compa 
of a sum to a litera 
in line 01 of the ex 
metic sum of the con 
2 into the result fi 
21 is turned on if t 
this case, line 02 c 
tion to be performed 
contents of FACT2 is 
pare field CFLD. If 
zero) , the next oper 
specified in line 03 
contained in FACT2 i 
Line 04 contains the 
compares CFLD with t 
turns on one of the 
33, depending on the 
operation. 

Test_Zone (TEST2) 



The TESTZ operation is used to test the 
zone of the leftmost (high-order) position 
of the field whose name is entered in 
Result Field. This operation is restricted 
to alphameric fields and can be used to 
test the zone portion of any of the 256 
EBCDIC characters. The TESTZ operation 
turns on one of the indicators specified in 
columns 54-59, depending on what zone it 
has encountered. The TESTZ operation is 
normally used to test for an 11 or 12 punch 
that was present in the high order position 
of a field from an input card file record. 
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Example of Using the TESTZ Operation 



punch has been encountered (S, 
e characters having the same 
letter A) , the indicator in 
5 is turned on. If an 11-punch 
ountered (-, or any of the 
aving the same zone as the 
he indicator in columns 56-57 
Any other zone causes the 
columns 58-59 to be turned on. 

, Factor 2, and columns 52-53 
in test-zone operations. 



shows an example of this opera- 
indicator 25 is on, the field 
t(ed. If the high-order position 
ne, indicator 02 is turned on. 
order position has a 12-zone, 
is turned on. 



One use of this specification is to turn on 
a halt indicator. All RPG indicators 
except L0, 1P, and MR can be turned on. 
Figure 63 (line 010) shows an example of 
this facility. 

Indicator 01 is turned on whenever a 
specific record type is read. The L3 is a 
control-level indicator that is turned on 
when a level 3 control break has occurred. 

If a level 3 control break is caused by 
a record type that is not associated with 
the record identifying indicator 01, halt 
indicator Hi is turned on. 

Se t _ I n d i ca t or s_ f f _ _£ s E T F)_ 



CATORS ON OR OFF 

describes the SETON and SET0F 
The column headings of Plus, 
ero and High, Low, and Equal 
ing with regard to these opera- 
hould be ignored. In SETOF and 

cations, columns 54 through 59 
to record three indicator 



This operation cod 
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off. All RPG indi 
MR can be turned o 
shows an example o 
tor 11 is turned o 
L1 is a control le 
turned on when a 1 
occurs. Whenever 
and 11 are on, the 
turned off. 



e causes the indicators 
ns 54-59 to be turned 
cators except L0, 1P, and 
ff. Figure 63 (line 020) 
f this facility. Indica- 
n at a specified time. 
vel indicator that is 
evel 1 control break 
both the indicators LI 
halt indicator H1 is 



Set_In dicato rs_On_JSETON^ 



on code causes the indicators 
columns 54-59 to be turned on. 
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Figure 63. Example of Usinq the SETON and SET0F Operations 



Notej. 

1. If the LH indicator is turned on during 
total calculations by a SETON opera- 
tion, processing is terminated after 
the output of the total lines. 

2. If the 0V or OF indicator is changed by 
a SETON or SETOF operation during total 
or detail calculations, the RPG object 
program resets the indicator at the end 
of the associated total detail, or 
exception output. Therefore, overflow 
printing will not be affected. 

3. The indicators H1-H9, L1 through L9, 
and all record identifying indicators 
that are defined in columns 19-20 of 
the input Specifications form can be 
turned on by a SETON operation. Howev- 
er, they will all be turned off by the 
RPG object program following detail 
output. 

i*. Setting indicators n to L9 on or off 
will not automatically set the lower- 
level indicators on or off. 



TABLE OPERATIONS 



Table_Look-U£_JL0K0Pl 



The LOKUP 


the field 


search arg 


Factor 2 c 


be searche 


tain the n 


associated 


Decimal a] 


operation 


result fie 


ciated fun 


Indicator 



operation causes the literal or 
name in Factor 1 to be used as a 
ument in a look-up operation, 
ontains the name of the table to 
d, and the result field may con- 
ame of the table from which the 

function is to be obtained, 
ignment is performed for this 
if the table is numeric. The 
Id may be left blank if the asso- 
ction is not to be retrieved, 
setting refers to the table argu- 



ment, rather than the search argument. 
Refer to the section Usin3_Tables_in_the 
Qbject_Pro2ram for a complete discussion of 
tables. 



CHAIN OPERATIONS 



ChaiS-iCHAINJ. 



The CHAI 
retrieve 
by using 
Factor 1 
operatio 
on one f 
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field or 
CHAIN op 
detail o 
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ile se 
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a cal 
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r tota 
iH 1E9. • 



ation causes a record to be 
the file named in Factor 2, 
ontents of the field named in 
entify the record. The CHAIN 
ws chaining to be performed 
veral times. The chaining 
1) may be either an input 
culation result field. The 
n may be executed at either 
1 time. (Refer to the sec- 
) 



The CHAIN statement consists of the 
entry CHAIN in Operation, and entries in 
Factor 1 and Factor 2. The entry in Factor 
1 varies depending upon the type of file 
being chained to: 

Indexed-Seguential Organization 

Factor 1 contains the name of the 
chaining field. It must contain the 
key (e.g., customer number, item num- 
ber, etc.) which is to be used to 
retrieve the record. 

Sequential Disk Organization 

Factor 1 contains the name of a field 
or a literal which contains the rela- 
tive record number in the file. It 
must be a numeric field or literal. 
The number supplied (e.g., 151 for 
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e indicator is net present, and 
cord is not found, the EPG pro- 



e hundred and fifty first re- 
must be supplied by the user. 

y in Factor 2 defines the 
, and must te a Filename as 
the File Description sheet, 
atement may be conditioned by 
1 in columns 7-8, and by indi- 
fied in columns 9-17. 



g indicators may be used to 
ot-found condition on the 

The same indicator should be 
columns 54-55 and columns 
mns 58-59 should be blank, 
or will be turned on whenever a 
rd is not found. Not found is 
either: a. ISAM - no such 

the file or b. Sequential - 
record number is either minus, 
than the largest record number 

See Figure 64 for an example 
statement. 



gram will notify the operator. The opera- 
tor is given the option of canceling the 
job or bypassing the not-found condition 
and retrieving the next record in the BPG 
cycle. If the user does this, heading and 
detail output will be bypassed as well as 
the remaining calculations in the cycle. 

The record indicator for any chained 
file is turned off following detail output. 
If the user chains to the same file more 
than once in the same cycle, there may be 
more than one record identifying indicator 
on for that file. This can be prevented by 
issuing a SETOF prior to chaining. 

Example 1 The field CHNFLD is from an 
input record and is chained to the 
filename DISK. If a record is not 
found with a similar key as that of 
CHNFLD, indicator 20 is turned on. 
This indicator can then be used to 
bypass normal operations. In this 
example, indicator 20 is used to jump 
over normal calculations. 
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Fiaure 64. Example 2 Using the CHAIN Operation 



Example 2. In this example, the indexed 
sequentially organized file ISAM is 
made up of a variable number of records 
per customer. The customer record has 
a key field of six digits. The first 5 
are the actual customer number and the 
units position is a digit to 9 
depending upon how many records the 
customer has. The field CHNFLD is set 
up for the first customer record with a 
units position of zero. The first cus- 
tomer record is chained to and indica- 
tor 20 is used for the not found condi- 
tion. If 20 is not on, an exception 
output line occurs to print the infor- 
mation from the first record. Then a 1 
is added to CHNFLD and GOTO is used. 
This process continues until no more 
records are found for this customer and 
indicator 20 is turned on. The program 
then continues to any other detail cal- 
culations. In this particular example 
the user would have to use the record 
identifying indicator of the chained 
file to determine whether a not found 
condition exists when the units posi- 
tion of the chaining field is zero. 



Example 3. In this example, Figure 64, a 
sequential file is being retrieved by 
use of a relative record number. Since 
no index relates to a sequential file, 
the programmer must have some means of 
obtaining the relative record number 
based upon a customer number. This can 
normally be done by one of three 
methods: 

a. The actual customer number is used 
as the relative record number (this 
method depends on the coding structure 
used) . 

b. A mathematical formula is used to 
convert the customer number to a rela- 
tive record number. 

c. A table lookup approach is used 
to locate the assigned relative 
record number. 

In this example, the table look-up 
technique is used. Indicator 20 determines 
whether the customer number is in the 
table, and the appropriate processing that 
is necessary if it is not. 
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ght be named FICA. For a 
s routine, Factor 2 of the 
ations must contain the name 

first specification in the 
be a TAG specification defin- 
of the routine. (Refer to the 
f the TAG operation code) . 

may be forward (skipping sub- 
fications) or backward 

skipping preceding 
s). 



0. GOTO statements consist of 
in Operation and a name in 
TO statements may have a 

indicator, and/or one, two, 
cators in columns 9-17. All 

of a GOTO statement must be 

TO statement is executed only 
ions established in the indi- 

rol-level specifications are 



GO 



nt 



left-justified. Its first character must 
be alphabetic, the remaining characters may 
be alphabetic and/or numeric. Special 
characters and embedded blanks must not be 
used. The name must be unique. That is, 
there may be only one TAG statement with 
the same name. However, more than one GOTO 
statment may refer to this name. 

The name of the TAG statement cannot be 
the same as one which is used for a field 
or file name. 

A GOTO from outside of a subroutine 
cannot be issued to a tag which is within a 

subroutine. 

A GOTO may be issued from detail to 
total calculations, but this is normally 
not needed due to the EXCPT operation code. 

P£2^idin2_a_Name_f or_a_G0T0 (TAG1 

The TAG specification marks the point to 
which the program can branch. Enter a name 
in Factor 1 and the code TAG in Operation 
(columns 28-32) . The same name must be 
used in Factor 2 of the associated GOTO 
operation. a tag statement may appear in 
detail or total calculations or within a 
closed subroutine. Columns 7-8 may have 
any valid entry. Columns 9-17 and 33-59 
must be blank for a TAG statement. 

EXAriKLj:. Figure 65 illustrates the use of 
GOTO and TAG specifications. 



in Factor 2 may have a maximum 
characters and it must be 
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Figure 65. Example of Using the GOTO Operation 



The GOTO statement in line 01 causes 
control to be transferred to ADDE01 on line 
05 if indicator 10 is not on. If indicator 
05 and 06 are on, the GOTO statement in 
line 02- causes control to be transferred to 
ADDR02 on line 08. If indicators 05 and 06 
are not on, the next statement in sequence 
is performed. 

The GOTO statement in line 11 causes 
control to be transferred to ADDR03 on line 
15, if the indicators L1 and 08 are on. 
Both the GOTO and the TAG are at L1 time. 

Notei A literal must not be entered in the 
factor fields of a GOTO or TAG operation. 

Transfer to an RPG_Subroutine__(EXSE]_ 



The EXSE operation causes 
point in the program to a 
program. The subroutine 
an internal subroutine, w 
part of this program. (R 
tion Subrouti nes .) After 
has been performed, a bra 
the next calculation spec 
ing the EXSR operation 



a branch from any 
subroutine in the 
referenced must be 
ritten in EPG as a 
efer to the see- 
the subroutine 
nch occurs back to 
ification follow- 



Iormat_of _EXS E . EXSR statements consist of 
the entry EXSE in Operation and a name in 
Factor 2. This name is that of the subrou- 
tine being referenced. EXSR statements may 
have a control-level indicator, and/or one, 
two, or three indicators in columns 9-17. 
All other columns of a EXSE statement must 
be blank. The EXSR operation is executed 
only if the conditions established in the 
indicator and control-level specifications 
are satisfied. 

The EXSR operation may itself be part 
of an RPG subroutine and refer to another 
subroutine. In this case, columns 7-8 
would contain SE. However, the name in 
Factor 2 must not be the name of the sub- 
routine of which the EXSR operation is a 
part. (A subroutine may not call itself.) 
See Figure 66 for an example of the EXSR 
statement. 

Besin_RPG_Subroutine_jBEGSRl 

The BEGSE specification appears as the 
first statement of an RPG subroutine. Such 
a subroutine is written in RPG and is a 
part of the program which uses it. (Refer 
to the section Subroutines.) The BEGSR 
specification defines the logical beginning 
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atements consist of the entry 

ration and a name in Factor 1. 

the name referenced by EXSE 

Columns 7-8 must contain SR. 

lumns must be blank. See 

an example of the BEGSR 



ecification appears as the last 
an HPG subroutine. The ENDSR 
Limit the RPG subroutine and to 
exit point from the subrou- 
ich occurs at this point to 
a specification immediately 
a EXSR statement that invoked 
Lne. 

itements consist of the entry 
cation. Factor 1 may be used 
name for a GOTO within the 
Columns 7-8 must contain SR. 



All other columns must be blank. See 
Figure 66 for an example of the ENDSR 
statement. 

In Figure 66, two HPG subroutines are 
shown, SUBR1 and SUBR2. Lines 01 and 03 
show conditional calls to the subroutines 
at detail time. If the associated indica- 
tor is on, the subroutine will be executed. 
Line 05 shows a call to SUBR1 at total 
time. The subroutines perform the desired 
function and return to the statement fol- 
lowing the EXSR associated with the subrou- 
tine. Line 13 shows a conditional GOTO to 
the ENDSR statement. If indicator 17 is 
set on, the GOTO will transfer to the ENDSR 
statement which will return to the calling 
EXSR. 

Exit_to_an_External^Subroutine_lEXIT^ 

The EXIT operation causes control to be 
transferred from the RPG program to an 
external subroutine written by the user. 
Factor 2 contains the name of this subrou- 
tine. (Refer to the section Subroutines.) 
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]*lG_£abel_JELAELl 

HLABL operation is used in BPG programs to 
define fields or indicators that are to be 
referred to in external user's subroutines. 
(Refer to the section Subroutines.) 

Place the code BLABL in Operation, and 
the name of the field that is to be defined 
in Result Field. To define an indicator, 
place the code IN followed by the indicator 
code in Result field. The entry in Result 
Field must be left- justified . Factor 1 and 
Factor 2 must not be used in HLABL 
specifications. 

ELABL statements must be specified fol- 
lowing the EXIT statement which refers to 
the subroutine that uses the field or indi- 
cator defined by the ELABL. 

Therefore, if the need exists to exit 
to the same subroutine from more than one 
place in the program, it can best be coded 
in an BPG subroutine. 



Ou±£;ui_le.cords_During_Calculations_iEXCPTl 

Occasionally it is necessary for the pro- 
grammer to vary the fixed logic flow of 
RPG. A typical example is when the pro- 
grammer requires several lines of output 
(fixed or variable number) that are ident- 
ical (or almost identical) . A fixed number 
of output lines can be created by EPG's 
normal logic, but this may entail duplica- 
tion of coding. 

To eliminate duplicate coding and to 
provide for unusual processing situations, 
RPG allows for exception output. 

The EXCPT operation causes exception reco- 
rds (E in column 15 of the Output-Format 
Specification) to be produced during calcu- 
lations. This allows producing a variable 
number of output lines which are identical 
(such as Tub File Replenishment) , without 
repetitively coding the output specifica- 
tion for the records. Similar output reco- 
rds can also be produced without repeating 
the entire record, by changing selected 
fields before placing the subsequent record 
in the output file. 



An EXCPT statement consists of the 
entry EXCPT in Operation. The statement 
may be conditioned by control levels 
(column 7-8) , or indicators (columns 9-17) . 
The remaining columns should be blank. 
Execution of this statement causes all 
exception records whose indicator tests are 
met to be placed in the output file at this 
time. These exception records are produced 
in the order of their specification on the 
Output-Format Specification sheet. 

Example 1. In this example. Figure 67, the 
EXCPT operation is used to create a 
variable number of Tub File Replenish- 
ment cards. The master card is read 
and contains data to be reproduced in 
columns 1-77. The variable number of 
cards to be punched is contained in a 
field called VARFLD. The Calculation 
Specifications show a series of steps 
that form a loop. A field called COUNT 
is created and set to zeros. It is 
then compared against the variable 
count field. If not equal, the excep- 
tion output lines are requested by the 
EXCPT operation. 

Exception Output (E in column 15) lines 
are tested for indicator conditions 
which are met. In this case, a card is 
to be punched with the contents of the 
field DATA. After all exception output 
lines are tested (only one in this 
case) , control is transferred to the 
calculation specifications at the step 
immediately following EXCPT (line 05). 
A one is added to COUNT and a GOTO 
(branch) returns to the TAG operation 
labeled LOOP. The process is repeated 
again until the field COUNT is equal to 
the field VARFLD. Each time it is not 
equal, exception output is called for 
and another card is punched. 

Example 2. In Figure 67.1 exception output 
is called from two places in the pro- 
gram and under different conditions. 
Line 04 sets on indicator 12 which is 
used to condition the file called 
PRINTER. Line 06 sets off indicator 12 
to prevent this same output from occur- 
ring at the wrong time. Lines 12 and 
14 .use indicator 13 to control a file 
called PUNCH in the same manner. The 
two EXCPT statements (lines 05 and 13) 
both call for exception output to 
occur. Line 05 is performed at detail 
calculations and line 13 at total cal- 
culations on a L1 control break. 
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Figure 67.1 EXCPT Operation - Example 2 



Figure 68 is a summary of the EPG 
operation codes and associated entries. 
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REQUIRED FILE NAME 

REQUIRED LABEL NAME 

REQUIRED FIELD MUST BE NUMERIC 

OPTIONAL ENTRY 

OPTIONAL LABEL ENTRY 

REQUIRED ENTRY , „ „ _„„ , 

REQUIRED FIELD MUST BE OF THE SAME TYPE (ALPHAMERIC OR NUMERIC) AS FACTOR 1 

REQUIRED ENTRY IN CONTROL LEVEL COLUMNS 



Figure 68. Summary of EPG Operation Codes 
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Figure 69. Example of Using the Calculation Specifications Fori 



USI^G_TO_CALCULATI0N_SPECIFICATI0NS_F0RM 

Figure 69 illustrates entries on the Calcu- 
lation Specifications form that are used in 
part of a payroll application. The entries 
of the sheet are discussed by line number. 

No±£l The blank spaces signify that addi- 
tional calculations have been specified, 
but in this example they have been omitted. 

P§3®zLilie Explanation 



0303-0305 



0301 



0302 



The program compares to the 
number of hours worked by the 
employee. If the result is 
equal, indicator 15 is turned 
on. 

The number of hours the employ- 
ee worked is compared with the 
literal 40. If the employee 
worked more than 40 hours, 
indicator 20 is turned on. 



0306 



If indicator 20 is on, three 
calculations are performed. 
The literal 40 is subtracted 
from the number of hours 
worked. Then the overtime 
hours are placed in the field 
OVEHHR. OVEBHE is a three spo- 
sition field with one decimal 
position. RATE is multiplied 
by OVEHHR and the result is 
placed in the field SAVE. SAVE 
is a six-position field with 
two decimal positions. SAVE is 
multiplied by the literal 1.5 
(the overtime premium rate) . 
The result is half-adjusted and 
is placed back in SAVE. 

RATE is multiplied by 40, and 
the result is stored in GROSS. 
This operation is performed 
whether or not the employee 
worked any overtime. This 
operation is not performed if 
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0307 
0308 

0309 
0310 

0311 



0312 



0313 



the employee did not work any 
hours during the pay period. 

GEOSS is added to SAVE. 

The program branches to the 
label FICA if indicator 15 is 
not on. 

Additional calculations not 
used in this example. 

The operation code TAG provides 
the label FICA. The RPG pro- 
gram branches to this label 
from 0308. 

GROSS is multiplied by the lit- 
eral .048 and the result is 
placed in the field DFICA. 
DFICA is a six-position field 
with two decimal positions. 
The result is half-adjusted. 

DFICA is added to YDFICA and 
the result is placed in the 
field HOLD. 

The contents of HOLD are com- 
pared with the literal 374.40. 



0314 



0315 



0316 



0317 
0318 
0319 



If HOLD is less than, or equal 
to, 374.40, indicator 21 is 
turned on. 

If indicator 21 is on, the pro- 
gram branches to the label 
ADFICA. 

YDFICA is subtracted from the 
literal 374.40. The result is 
placed in DFICA. 

The operation TAG provides the 
label ADFICA to which the pro- 
gram can branch (either from 
the specification on line 0314 
or sequentially from the speci- 
fication on line 0315). 

DFICA is added to YDFICA and 
the result is stored in YDFICA. 

Additional calculations not 
used in this example. 

The operation code TAG provides 
the label WHTAX to which the 
RPG program may branch. 
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OUTPUT-FOMAT SPECIFICATIONS FOPM 



This form specifies the kind of output 
files to be produced and the location of. 
the specific data fields in the output 
reports and records. f 

The specifications for this form are 
divided into two categories as illustrated 
in Figure 70: file identification and con- 
trol (columns 7-31) , and field description 
(columns 23-74, where columns 71-74 are 
used in conjunction with sterling currency 
processing) . 



I± le_I de n t i f ica t i o n_ a n d_ Co n t r o 1 . These 
specifications identify the output files 
(disk, printer and/or punched card files) , 
and records to be added to the file. They 
direct cards to the appropriate stackers 
and provide for correct spacing on printed 
reports. They determine under what condi- 
tions and at what time (detail, total, 
exception or overflow time) the records are 
to be produced. 

Ii®l4_2® script ion. These specifications 
indicate where and when the individual 
fields of the output record are to be 
punched, printed, or written on disk. The 
entries for these specifications are writ- 
ten on the lines below the file identifica- 
tion entries. Each field is described on a 
separate line. 



The reader should note that the speci- 
fication Output Indicators is used for both 
file identification and field description. 
The facility of controlling the printing 
and punching of each specific field of the 
record provides great program flexibility 
in RPG. 

Segu en ce_o f_ Sjoecif ica t ions 



The sequence of specification should be as 
follows: 
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Figure 70. The PPG Output-Format Specification Form 
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If a detail card is to be punched, and 
selected into a specified stacker, all of 
the specifications for these operations 
must be given as part of one file identifi- 
cation line. 

S£ecif_xin<L_Outp.ut_Units 

When writing the output format specifica- 
tions, it is net necessary to indicate the 
specific output units used in the program. 
The input/output unit used for each file is 
specified in the File Description Specifi- 
cations form. Each file name, therefore, 
is related to a specific output unit. By 
merely writing the file name on the output 
form, the output unit has, in effect, been 
specified. 

Writing the specifications in the prop- 
er sequence should net be difficult if (1) 
the layout of a printed report has been 
correctly made on a Printer Spacing Chart 
or proportional record layout form, and (2) 
reference is made to the spacing chart or 
layout form as the specifications are 
written. 



IIiI_lDENTIFICATIO]J_AJND_CONTEOL 

Fil£_Name_JColumns_7-J4i_ 

A filename must be assigned to each output 
file. The name may contain up to eight 
alphabetic and/or numeric characters and 
must be left- justified. The first charact- 
er must be alphabetic, and the name must 
not contain embedded blanks or special 
characters. 1130 EPG utilizes only the 
first 5 characters. 

In file maintenance operations where an 
input record is updated on the basis of 
newly calculated results (update or com- 
bined files) the same filename must be used 
for both input and output specifications. 

When writing the specifications for 
output records, the filename must be given 
only on the first line for the file. On 
subsequent lines for the same file, the 
filename need not be specified. However, 
the filename must be repeated each time 
another output file is specified on the 
preceding lines. Figure 71 illustrates 
this point. (Field specifications are not 
shown.) The first and second specification 
lines cause the printing of the overflow 
heading and detail lines. The third speci- 
fication line causes the punching of a sum- 
mary card; this line causes a new file to 
be created and must therefore be given a 
separate filename. The remaining specifi- 
cation lines cause the control level 1 and 
final total lines to be printed. 
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Figure 71. Sample of File Name and Type 
H/D/T/E Specifications 



lI£e_H/D i /T^E_iColumn_!51_ 

This specification identifies the type of 
record being specified. The following four 
entries are used for this specification: 



H Heading Record. 

D Detail Record. 

T Total Record. 

E Exception Record. 

fisadiaa_Beco£d s . The records usually con- 
tain constant information, but they may 
also contain information from input reco- 
rds, including the record present at the 
time the output record is produced. 

I>e£§il_Records. These records have a 
direct relationship to the input records. 
Host of the data in a detail line comes 
from the input record or from calculations 
performed at detail time. 

Total_ Records. Operations upon fields from 
the input record are preceded by the test 
for control field changes, the performance 
of total-time calculations, and the forma- 
tion of total records. Thus, an input re- 
cord that causes a control field change 
cannot contribute data to total records 
that result from that control change. 

Exce£tion_Records. These records are pro- 
duced whenever the EXCPT operation is 
executed. This can occur at detail or 
total time, depending on the conditions 
imposed on the Calculation Specification 
line which contains the EXCPT operation. 
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Figure 71 contains examples of entries 
for the specification TxE S_ I/D/T^E * 

Notej_ Heading and detail records are dis- 
tinguished only for the user's convenience. 
The RPG program treats both specification 
types in the same way. 

Sequence of Specifications 



The sequence must be as follows: 



into the same stacker, the same specifica- 
tion must be made for each card. 

The number of the stacker into which 
the card record is to be selected is writ- 
ten in this specification. The specific 
card record to be selected is identified in 
the specification Output Indicators. 
Figure 72 illustrates two examples of 
Stacker select entries. Field entries are 
not shown. 



H/D Heading and Detail Lines 

T Total Lines 

E Exception Lines 

ADDING_BEC0BDS_T0_AN_INEEXED_SE2UEOTIAL 
ORGANIZED FILE ..(COLUMNS 16-181 

Enter the characters ADD in columns 16-18, 
if the output record is to be added to an 
indexed sequential file. These columns 
must be left blank if the contents of the 
output record are to be used to update or 
to load an indexed sequential file. Adding 
to a file cannot occur in the same program 
in which the file is being retrieved or 
updated. It is possible to retrieve or 
update one file while a second file is 
being added to in the same program. 



in 1130 
indexed-sequ 
tion 1 of ea 
with the len 
described on 
cations. If 
key field as 
RPG program 
of the recor 
field* In 1 
either alpha 
be packed. 



RPG the key field for any 
ential file must begin in posi- 
ch record. This entry along 
gth of the key field is 
the File Description Specifi- 
the programmer describes the 
being 5 positions long, the 
will use the first 5 positions 
d to be added as the new key 
130 RPG, the key field can be 
meric or numeric, but it cannot 



Notej_ Column 66 of the related file- 
description specifications must contain an 
A if a record is to be added. 

For card and/or printer specifications 
use these columns as described below. 

Stacker_Select (Column_.161 

This specification causes card records to 
be selected into the stackers of the output 
units. 

It is used when an input/output unit 
with more than one stacker is attached to 
the system. It is used only for output 
files or combined files. (Selecting cards 
from an input file is specified on the 
Input Specifications form.) New stackers 
may be specified in subsequent OR-lines. 
If in an OR-line column 16 (Stacker Select) 
is left blank, the card is directed to the 
normal pocket. If all OR-cards should go 
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Figure 72. 



Sample of Stacker Select 
Specifications 



The second specification causes the 
summary card created at control level-1 to 
be selected into stacker 2. The first spe- 
cification causes a card record identified 
by indicators 26 and 30 to be selected into 
stacker 2. (Indicator 26 could be the 
record-identifying indicator for a particu- 
lar card record. Indicator 30 could be a 
field indicator turned on by some special 
condition such as a zero or minus status in 
a field of the record.) 

If no entry is made in Stacker Select, 
all cards from output and combined files 
are directed to a specific stacker, depend- 
ing on the input/output unit attached to 
the system. 

With the IBM 1442 Card Read-Punch, a 
blank or 1 in column 16 will cause cards to 
be directed to the normal stacker, while a 
2 will result in the selection of stacker 
2. 

SPACE_JCOLUMNS_17-18], 

This specification and the next specifica- 
tion (Skip, columns 19-22) are used to pro- 
vide for the proper spacing of printed 
reports. Note that in OR-relationships, 
the Space entries may differ. If the re- 
cord is to be printed, at least one entry 
is required in columns 17-22. 

S£ace_Before (Colunm_1.7]_.. Zero, one, two, 

or three spaces before printing can be spe- 
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cified by placing the entries 0, 1, 2, or 3 
in column 17. 

S£ace_After [Colum.n_18.Ls. Zero, one, two, 

or three spaces after printing can be spe- 
cified by placing the entries 0, 1, 2, or 3 
in column 18. 

SJsi£._JCol_____1_-2 2_ 

This specification provides for the proper 
spacing of printed reports. It is related 
directly to the operation of the 1132 or 
1403 printer carriage control tape. Note 
that in OR-relationships, the Skip specifi- 
cation in the various OR lines may differ. 

SJSi£„Befor___Colu_ns____201. The entries 
01 through 12 cause the printer carriage to 
skip to channels 1 through 12 of the car- 
riage tape, respectively, before the line 
is printed. 

SJSi£-.lf£er__Col_m___2__22_. The entries 01 
through 12 cause the printer carriage to 
skip to channels 1 through 12 of the car- 
riage control tape, respectively, after the 
line is printed. 

N_te___At least one entry should be made in 
columns 17-22 if the record is to be 
printed. 

I_te_.2_ if space After and Skip After are 
specified on the same specification line, 
only skip After will be executed. 

No.te_.3_ A skip may not be specified for 
the console printer, or for channels 7, 8, 
10, and 11 with the 1132 printer. 

I_±e___ A space before or space after of 
may not be specified for the console 
printer. 



OVERFLOW INDICATOR (OF OR 0V) 

Carriage overflow, indicated by a punch in 
channel 12 of the control tape, causes the 



overflow indicator specified on the File 
Description Specifications to be turned on. 
It remains on for one complete cycle of 
processing (thus it is turned off after the 
heading and detail lines of the next record 
are printed) . Because the overflow indica- 
tor is on during calculations, it can be 
used to control calculation specifications. 

A test for carriage overflow is made by 
the object program immediately before each 
line of the report is printed (but after 
any Space or Skip Before specifications are 
executed). Two conditions occur: 

1. If a carriage overflow occurs at detail 
time, the remainder of the detail lines 
are printed. Then the overflow indica- 
tor is turned on and the next record is 
read. If the appropriate conditions 
are satisfied, total calculations and 
total output are performed. Then the 
overflow lines are printed or an auto- 
matic skip to the next page is executed 
if no overflow lines are specified. 
When the next detail calculations and 
detail output have been performed, the 
overflow indicator is turned off. 

2. If a carriage overflow occurs at total 
time, the remainder of the total lines 
are printed. Then the overflow indica- 
tor is turned on. Overflow lines are 
printed if specified. Otherwise, an 
automatic skip to the next page is 
executed. When the next detail calcu- 
lations and detail output have been 
performed, the overflow indicator is 
turned off. 

Printing_Overflow Lin es. If an output line 
is coded as shown in the top half of Figure 
73 the line will be printed whenever the OF 
or L1 indicator is on*. If L1 and OF are on 
at the same time during processing, the 
line will be printed twice. This might 
cause an error in the printed report. 
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Figure 73. Example of Overflow Printing Specifications 



To prevent this, the line is coded as 
shown in the bottom half of Figure 73. By 
making the conditions mutually exclusive, 
the line will not be printed twice. 

Indicators OF and 0V cannot be speci- 
fied for an Exception Output line. The 
object program prints overflow lines in the 
following order: 

1. Total lines conditioned by overflow are 
printed. 

2. Heading and detail lines conditioned by 
overflow are printed. 

Overflow Lines. An overflow line is any 
line conditioned by a positive overflow 
indicator. A line conditioned by OF (or 
0V) with or without any ether indicator is 
an overflow line. It will be printed dur- 
ing overflow output time in the object 
flow. A line conditioned by NOF (or NOV) 
is not an overflow line. It is printed at 
either heading/detail, total or exception 
time. 

Iields_Conditioned_b^_OVerf low 

A field description may also be conditioned 
by an overflow indicator. This field will 
be treated as any other field conditioned 
by an indicator. It will print only if 
printing is specified and the field indica- 
tor is on. 

Note: If overflow lines are not specified 
on the report, a punch in channel 12 of the 



control tape causes the carriage to skip 
automatically to a punch in channel 1. If 
at least one overflow line has been speci- 
fied, automatic skipping to a punch in 
channel 1 is not performed. 

M ul t ip_ le_P r i n t e r s . It is possible to use 
two printer files for each BPG object pro- 
gram. A unique overflow indicator must be 
specified for the second printer. 

0ut£ut_I ndicators (Columns_23;3J}_ 

This specification may be used either for 
file and record identification (in this 
case at least one indicator is required) or 
field description. A maximum of three 
indicators may be specified. These indica- 
tors control: 

1. When the record is to become output, 
and 

2. When a particular field is to be 
printed, punched or written. 

If more than one indicator is specified 
for one line, they are considered to be in 
an AND-relationship. Hence all conditions 
specified must be satisfied before the spe- 
cified output operation can be executed. 

If the object program requires more 
than three indicators in an AND- 
relationship, AND is entered in columns 
14-16 of the following line, and the addi- 
tional indicators are specified on that 
line. If one of these indicators is over- 
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flow (OF or OV) , it must not appear on the 
same line as the AND. 

If the output condition is executed in 
an OR-relationship, OE is entered in 
columns 14-15 of the following specifica- 
tion lines, and the OB indicators are spe- 
cified on that line. 

Additional specification lines can spe- 
cify as many output indicators, in either 
an AND- or an OR-relationship, as required 
by the object program. Each additional 
line must begin with AND or OR in column 
14. AND and OR can only be specified to 
condition records, and not fields. 

Permitted Entries for Output Indicators, 
Column s_24-2 5 i _27;28 i _and^or_30- 3J 

Enter in these columns: 

1. l©cord_Identify_inc[_Indicators: a re- 
cord identifying indicator codespeci- 
fies the particular input record type 
on which the output operation is to be 
performed. These indicators refer to 
entries in columns 19-20 of the Input 
Specification form. 

2 - Ei' suit incj_Indica t cr s : A resulting 
indicator code controls theoutput 
operation by conditions that have 
occurred during calculations. These 
indicators refer to entries in columns 
54-59 of the Calculation specifications 
form. 

3. Fieldln dicators : A field indicator 
code controls theoutput operation by 
the status of the input field. These 
indicators refer to entries in columns 
65-70 of the Input Specifications form. 

4* Control Level. Indicators: Control 

level indicators (L0...L9, LR) cause the 
output operation to be performed only 
when the affected control break has 
occurred. 

5 * M a tchi nq_ Rec o r d_I n d ic a t o r : The MR 

indicator code causes the output opera- 
tion to be performed only if there is a 
matching record in a secondary file. 

6 - Halt indicators; The halt indicators 
H1 through H9 arenormally used to sup- 
press the output operation when an 
error has been detected in the input 
data or during calculation. 

7 « Qverf i2JJ_IS dicators : The overflow 

indicators Of and OV cause the output 
operation to take place only if a page 
overflow has occurred. Note that these 
indicators do not apply to the first 
page of a report. The indicators must 



be defined on the File Description 
Specifications. 

8. Ii£st_ Pa.3e_ In dicat or : The 1P indicator 
enables headings to be printed on the 
first page of a report. This indicator 
is turned on only at the beginning of 
the processing before any input records 
have been read. The purpose of this 
indicator is to cause the printing of a 
cover sheet or page heading lines on 
the first sheet of a report. 

If the user intends to print identical 
heading lines on each page, an overflow 
indicator (OF or OV) and the first page 
indicator (1P) must be specified in an OR- 
relationship because the overflow condition 
does not occur until after the first page 
has been printed. 

If any of the output indicators must be 
off, enter N in columns 23, 26, or 29, whi- 
chever is appropriate* 

At the beginning of executing an object 
program, the following indicators are 
always on: 

• First page indicator 1P 
•.. Level-zero indicator L0 

lS§:J5£iSS_of_Out£ut_In dicators 

Figure 74 shows six examples of output 
indicators used with the output file. The 
numbers to the right of the figure refer to 
the item numbers in the following text. 

1. The carriage is skipped to channel 02 
before printing. The heading line is 
printed only when an overflow condition 
occurs or when the 1P (first page) 
indicator is on. 

2. The detail line is printed only if 
indicator 14 is on and indicators 26, 
28, and 30 are off. (Indicators 26, 
28, and 30 could be field indicators or 
record identifying indicators from the 
input specifications, or resulting 
indicators from the calculation 
specifications.) 

3. The detail line is printed if indicator 
40 or 46 is on* 

4. The total line is printed and the car- 
riage is skipped to channel 2 before 
printing only if the level 2 indicator 
is on, the MR indicator is off, and H2 
is off. The specification NH2 prevents 
the object program from printing a line 
if an error condition has occurred. 
Although the program does not stop 
until all processing for the record has 
been completed, printing of erroneous 
data is prevented. 
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Figure 74. Example of Specifying Output 
Indicators for Output Lines 



The summary record is printed at level 
2 control time, but the ME (matching 
records) indicator must also be on. 

A summary card is punched at level 2 
control time, and it is selected into 
stacker 2. 



FIELD DESCRIPTION 

These entries include specifications for: 

1. The control of the individual fields of 
a record* 

2. The output format of individual fields 
of a record. 

The fields of a record are written on 
the lines below their corresponding file 
entries. Each field is described on a sep- 
arate line, and no entries are permitted in 
columns 7-22 of a field description line. 



In general, the rightmos 
numeric field contains the s 
punch or a digit punch desig 
tive value, an 11-punch a ne 
If a numeric field with a ne 
printed, the rightmost posit 
put field will contain one o 
- R, or the special characte 
This can be avoided by means 
priate edit word, or edit co 
put specifications. 



t position of a 
ign. A 12- 
nates a posi- 
gative value, 
gative value is 
ion in the out- 
f the letters J 
r - (Minus) . 

of an appro- 
de in the out- 



Out£ut_Indicators (Columns 2 3-_31}_ 

The same types of indicators used for re- 
cord identification can be used for field 
description. The maximum number of indica- 
tors that can be considered to be in an 
AND-relationship is three for each field 
description line. 

Output indicators must not be specified 
in an OR-relationship on a field descrip- 
tion line. 

Figure 75 shows four sets of indicators 
used as output indicators for field 
description lines. The numbers to the 
right of the figure correspond to the fol- 
lowing list: 
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Figure 75. Example of Specifying Output Indicators for Fields 



Four fields are printed from a detail 
record identified by indicator 44: 
INVOIC, AMOUNT, CUSTB, and SALESM. The 
entry L1 causes the contents of the 
field SALESM to be printed only for the 
first detail record of each control 
group. Only the field named SA1ESH has 



2. 



group indication. (Note that control 
level indicators remain on during the 
following detail calculation and output 
cycle. ) 

The second example illustrates how to 
prevent the printing of just one field 
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of a record. The contents of the field 
AMOUNT is printed only if indicator 16 
is turned off. (This indicator might 
be a resulting indicator used to deter- 
mine if the calculated contents of the 
field AMOUNT are zero.) 

3. This example shows selective printing 
of constant headings contained in cards 
for an invoice form. The specification 
prints all the heading information on 
the first form, but if the information 
for one customer order continues on two 
or more forms, only the customer and 
invoice fields on succeeding forms are 
printed* Printing cf the entire line 
is controlled by indicators 04 or OF. 
In the field-description specifica- 
tions, the OF indicator is also used to 
prevent printing of fields named OEDEE, 
DATE, and SALESM when an overflow con- 
dition occurs. In this example, indi- 
cators OF and 04 are never on at the 
same time. 

4. The last example shows how the printing 
of a field can be controlled by an AND- 



relationship and an OE-relationship. 
The printing of the field named DIVSON 
is controlled by three AND indicators: 
16, NH2, and NL3. The field named 
AMOUNT is controlled by two OE condi- 
tions. In the field description line, 
the OE-relationship is used by writing 
the field name twice and specifying 
each appropriate OB indicator. OB can- 
not be specified in columns 14-15 of a 
field-description line. 

I±eld_Name__(Columns_32-371 

This specification identifies each field of 
the record to be printed. The fields may 
be listed on the form in any sequence. The 
order in which they appear in the output 
record is determined by the entry in 
columns 40-43. 

Enter the name of the field which is tc 
become output in columns 32-37. The field 
name must have been previously defined on 
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Figure 77. Example of Page Numbering with Two Counters 
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Figure 78. Summary of Edit Codes 



either the Input Specifications or Calcula- 
tion Specifications form. If a constant is 
to be written, it is specified in Constant 
or Edit Word (columns 45-70) , and Field 
Name is left blank. 

P§2e_or_Record-Sesuence_Nu^berjjic[ 

Automatic page numbering is another feature 
of RPG. By placing the word PAGE in 
columns 32-37 (Field Name) of the output 
specifications, automatic page numbering 
will be obtained on the printed report. 
The page entry in Field Name of Figure 76 



(line 06100) causes each page of the output 
to be numbered consecutively in print- 
positions 97-100. The number is always 
four positions long. However, an edit code 
or edit word should be specified by the 
user. The page number is increased by one 
before it is printed* 

Page numbering normally begins with the 
number 1, but page numbering can be started 
with any number by preparing a record type 
that contains the starting page, less 1. 

In this case the record must be defined 
on the Input Specifications form with a 
field labeled PAGE. Figure 76 shows an 
example of this specification.. In this 
example page numbering is defined on line 
04010 and 04020 of the Input Specifications 
form,. On the output form in Figure 76 
(line 06100) , it is defined as a separate 
field that will print in position 100. If 
the page numbering were to begin with the 
number 500, 0499 would be punched in 
columns 2-5 of the input record that con- 
tains the character - (minus ) in position 
1, 



A page number ca 
a new series of page 
during the processin 
gram* When PAGE app 
of the Output Specif 
put indicators are u 
to number 1* In thi 
must be placed in Ou 
same line as the fie 
PAGE (see the L3 ind 



n be reset to zero and 

numbers may be started 
g of the object pro- 
ears in the field name 
ications form, the out- 
sed to reset the page 
s case, the indicator 
tput Indicators on the 
Id name specification 
icator in Figure 76). 
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Field length 


1769532 


02 


00 


000 


041345 


Spe 


aigirs 
cified as 


Positive 
number; 
two decimal 
positions 


Negative 
number; 
two decimal 
positions 


Zero; two 

decimal 

positions 


Zero; no 
decimal 
positions 


Positive 
number; 
three deci- 
mal positions 


/ 


' 1 


17,695.32 


.02 


.00 





41.345 




2 


17,695.32 


.02 






41.345 




3 


17695.32 


.02 


.00 





41.345 




4 


17695.32 


.02 






41.345 




A 


17,695.32 


.02CR 


.00 





41.345 




B 


17,695.32 


.02CR 






41.345 


"8 J 

UJ 


C 


17695.32 


.02CR 


.00 





41.345 


D 


17695.32 


.02CR 






41.345 




J 


17,695.32 


.02- 


.00 





41.345 




K 


17,695.32 


.02- 






41.345 




L 


17695.32 


.02- 


.00 





41.345 




M 


17695.32 


.02- 






41.345 




Y 


Must be used with 


a 3 to 6 digit field 


• 




4/13/45 


\ 


Z 


1769532 


2 






41345 



Figure 79. Example of Edit Code Usage 
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108.2 



Any output indicators specified in a 
PAGE line are checked before printing. If 
the conditions of the indicators are satis- 
fied, the page counter is reset to 1, 
instead of being incremented by 1. 

N°.±ej. Any field name which begins with 

PAGE will be treated as a page numbering 

field. Therefore, the user could specify 
several page numbering fields for one or 
more files* A second page numbering field 
might be called PAGE1. Figure 77 illus- 
trates the use of two page counters. 



Edit_Codes (Column_381_ 



Numeric fields can be automatically edited 
by entering an edit code in column 38 of 
the Output-Format Specification. This code 
can provide comma insertion, zero suppres- 
sion, sign removal, negative indication 
with either - or CH, blanking of zero 
fields, date field editing, and insertion 
of the decimal point. 

Zero suppression means that zeros to 
the left (leading zeros) , of the signifi- 
cant digits, and the sign on the units 
position, do not appear in the output 
record. 

Sim£le_Edi t_Co des : The use of these codes 
causes no punctuation of amount fields. 

X The positive sign is removed from the 
units position of a numeric field. No 
zero suppression occurs (this code has 
no effect upon 1130 RPG since the valid 



plus sign is a hexadecimal F. There- 
fore, all positive fields will be 
punched or printed with only a digit in 
the units position) . 

Date field is edited, as follows: 



3 digits 

4 digits 

5 digits 

6 digits 



(n)n/n 
(n) n/nn 
(n) n/nn/n 
(n) n/nn/nn 



The first digit is zero suppressed. 

No te; If inverted print is specified 
on the EPG Header Control Card, a 
decimal point (. ) is printed instead 
of a slash (/) . 

Z Leading zeros are suppressed. Sign, if 
any, is removed. Decimal positions are 
not considered. 

Comb inat i on_E di t_Codes : These codes cause 
punctuation of an amount field. If the 
field has decimal positions, the decimal 
point is inserted and printed (except when 
a zero balance is suppressed) . When a zero 
balance is to print, the decimal positions 
print as zero, and positions to the left of 
the decimal point print as blanks. In the 
case of a numeric field without decimal 
positions, printing a zero balance results 
in only a zero in the units position of the 
field. When a zero balance is to be sup- 
pressed, the field prints as blanks. Lead- 
ing zeros are always suppressed. Figure 78 
summarizes these edit codes. 

Note_J,2 When inverted print is specified 
(I in column 21 of the EPG Header Control 
Card), the use of comma (,) and period (.) 
in punctuating amount fields is reversed. 
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Jlote_2i When •*' is entered in columns 
45-47, the asterisk fills the suppressed 
positions. Each leading zero is replaced 
by * when zero suppression is used. 

U2ie_3j. When •$• is entered in columns 
45-47, the dollar sign appears immediately 
to the left of the high-crder significant 
(non-zero) digit. 

Note_4i This column (38) should be left 
blank when an edit word is used (columns 
45-57) . 

Figure 79 illustrates the use of edit 
codes when printing numeric fields. 

llank_After_JColumn_391 

If a B is entered in this column the output 
field will be reset to blanks or zeros 
immediately after execution of the transfer 
operation Alphameric fields are set to 
blanks, and numeric fields are set to 
zeros* 

Notei A specificaticn in Blank After also 
affects any constant (columns 45-70) that 
may be contained in the line. Since each 
constant is stored only once for every EPG 
program, no matter how often it is used, a 
constant affected by a blank after specifi- 
cation is not available for use in any fol- 
lowing operation. If a field is tested for 
indicators in the plus, minus or zero 
columns (Input or Calculation Specifica- 
tions) , a blank after specification will 
not reset these indicators. 

End Position in Qutput_Beccrd (Columns 
HQ.ZR3L " 

This specification indicates the exact 
location of the field in the output record. 
In columns 40-43, enter only the position 
in the output record where the rightmost 
(low-order) character of the field is to be 
located. 

Assume that a ten-position amount field 
is to be printed in print positions 21 
through 30. The entry in columns 42-43 
would be 30. Columns 40-41 are left blank, 
since leading zeros may be omitted. 

When edit words or edit codes are being 
used, the end position must allow for the 
punctuation characters introduced by the 
editing process; 

Packed_Field_jColumn_441 

This field may be used only with disk 
files. Enter a P in this column if the 
output field is to appear in the packed 
decimal format* Otherwise, leave this 
column blank. If the output is a constant 
or is to be interpreted or printed, leave 



this column blank. The length of an output 
field in characters of packed format is 

n_+_B 
2 

where n is the number of digits used, and 
B=1 if n is odd, B=2 if n is even. 

Figure 76 shows examples of Field Name 
(columns 32-37), Edit Codes (column 38, 
Blank After (column 39), End Position in 
Output Record (columns 40-43) , and Packed 
Field (column 44) . 

£2ns±ant_or_Edit_Word_^Columns_45-70}_ 
Columns 45-70 are used to: 

1. Include constants (literals) in output 
records. 

2. Specify the edit word for proper output 
format. 

3. Modify the function of the edit code 
(column 38) . Permit editing of numeric 
fields. 

Constants 

An alphameric literal of up to 24 charac- 
ters may be placed in columns 45-70. The 
literal must begin in column 45, and it 
must be enclosed in apostrophes. The lit- 
eral will be placed on the output record as 
defined in End Position in Output Record, 
columns 40-43. 

EMles_for_Forming__Al£hameric_Li^e^als_in_an 
Out£Ut_Record 



Any character 
set may be use 
al. Blanks ar 
characters. 
Alphameric lit 
apostrophes, 
represented in 
cutive apostro 
literal 5 o'cl 
'5 o' 'clock" i 
Output-Format 



in the EBCDIC character 
d in an alphameric liter- 
e treated as valid 

erals must be enclosed in 
An apostrophe (•) is 

a literal by two conse- 
phes. For example, the 
ock would be entered as 
n columns 45-56 of the 
Specifications form. 



3 - Iield_Name (columns 32-37) must be left 
blank when an alphameric literal is 
defined on the line. 

Edit_Code_0£tions 

The characters »*• and •$• may be entered 
in columns 45-47 to modify the edit code 
entered in column 38. 

*** indicates that asterisk fill is 
used with zero suppression. All 
leading zeros are replaced by *. 

•$• indicates that a floating dollar 
sign is to be used. The character 
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$ prints immediately left of the 
high-order significant digit. 

Edit_Wprds 

For typical fields, the use of edit codes 
will provide proper editing. Edit words 
may be used where unusual editing require- 
ments are needed* 

An edit word provides for the punctua- 
tion of amount fields, including the print- 
ing of dollar signs, commas, periods, and 
sign status* Edit words can also be used 
to suppress leading zeros, and to provide 
for asterisk protection up to a specific 
position as indicated (see items 3 and 4 
under the next section) . A sample edit 
operation is shown in Figure 80. 

IN STORAGE 
ibibib, , |b|b|0| . t b.b|&|C|R|*| Edit Word 



[1 



0i 0i3i6|7|9|6 



±1- 



- Unedited Data 



IN OUTPUT RECORD 
, , i3i,i6i7i9i.i6i4i i i 1*1 —Edited Data 



Figure 80. Functions of the Edit 
Operation 

When an amount field is to be edited, 
its edit word is placed in columns 45-70 of 
the same output specification line where 
the field to be edited is specified. 

An edit word consists of three parts 
(the body, the status, and the expansion) 
as shown in Figure 81. 



b ■ b i & i C I R I 



i t b|b|b,,,b|b|0|. l b l b| C|V.|K l | 

Body Status / 

Expansion 

Figure 81. Body, Status, and Expansion of 
an Edit Word 



The body of an edit word governs the 
transfer of the data field to the output 
record. The body portion begins at the 
leftmost character of the edit word and 
contains the same number of blanks (one 



zero or an asterisk) as the number of 
digits of the data field* 

The function of the edit-word status 
position is to display the status (positive 
or negative) of the data field. It is the 
portion continuing to the right from the 
body to the CE (credit) or - (minus) sym- 
bol* Edit words that contain no CR or - 
symbol have no status portion. 

The expansion portion of an edit word 
remains unchanged. It is the portion con- 
tinuing to the right from the status por- 
tion (or body portion if there is no status 
portion) and ending with the rightmost 
character of the edit word. 

Eules_for_Forming._an_Edit_Word 

1* An edit word must be enclosed in 
apostrophes. 

2. A blank in the body portion of the edit 
word is replaced with the character 
from the corresponding position of the 
data field specified in Field_Name. 

3. An ampersand in the body or status por- 
tion causes a blank in the edited 
field. It remains unchanged in the 
expansion portion. 

4. A zero is used for zero-suppression.. 
It is placed in the rightmost position 
where zero suppression is to stop. It 
is replaced with the character from the 
corresponding position of the data 
field, unless that character is a zero. 
Column 38 (edit codes) must be left 
blank. 

5. If leading zeros are desired, the edit 
word must contain one more position 
than the field to be edited, and a zero 
must be placed in the high order posi- 
tion of the edit word. 

6. An asterisk in the body of the edit 
word is used for asterisk protection 
and zero suppression. It is placed in 
the rightmost position where zero 
suppression is to stop. It is replaced 
with the non-zero character from the 
corresponding position of the data 
field. Each suppressed zero is 
replaced by an asterisk. An asterisk 
preceding a CE symbol, a minus symbol, 
or a zero, is interpreted as represent- 
ing asterisk protection* 

7. A dollar sign in the body of the edit 
word written immediately to the left of 
the zero-suppression code causes the 
insertion of a dollar sign in the posi- 
tion to the left of the first signifi- 
cant digit. This is the f loating_dolx 
lar sign. A dollar sign that is 
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entered immediately after the initial 
single-quote mark is fixed (printed in 
the same location each time) . This is 
the fixed_dollar_sic|n. 

8. The decimal and commas are printed in 
the same relative positions they were 
written in the edit word. If they are 
to the left of significant digits, they 
are blanked out or replaced by an 
asterisk. 

9. All other characters used in the body 
of the edit word are printed if they 
are to the right of significant digits 
in the data field. If they are to' the 
left of high order significant digits 
in the data word, they are blanked out. 
If asterisk protection is used, they 
are replaced by an asterisk. 

10. The letters CH or the minus symbol in 
the status portion of the edit word are 
undisturbed if the sign in the data 
field is minus. If the sign is plus, 
or if the value of the field is minus 
zero, CR and - are blanked out. 

11. Characters to the right of the status 
portion of the edit word are 
undisturbed. 

12. The edit word may be larger than the 
field to be edited. 

Figure 82 illustrates the use of con- 
stants and edit words. The numbers to the 



left refer to the item numbers in the fol- 
lowing text. 

1. The constant 26.75 is in the output re- 
cord ending in position 96. The field- 
name specification must be blank. 

2. The constant DEPARTMENT TOTAL is con- 
tained in the output record ending in 
position 96- The field name must be 
blank. 

3. This example illustrates zero suppres- 
sion to the left of significant digits. 
The letters CR are written because the 
amount field can contain a negative 
value. 

4. In this example, the floating dollar- 
sign protection enters the $ to the 
left of the first significant digit. 

5. Asterisk protection enters as many 
asterisks to the left of the first sig- 
nificant digit as required to fill out 
the number of positions specified in 
the edit word. 

Sterling_jColumns_7j-74]_ 

Enter in these columns the position in the 
record that will contain the sign of the 
sterling field. Leading zeros may be 
omitted. Enter an S in column 74 if the 
sign is in the normal position. If the 
sterling specification is not reguired, 
leave this column blank. 
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a 
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M 
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Conitant or Edit Word 

4 41 44 47 41 40 30 SI 52 93 34 39 M it SI St M 41 *> M M .5 M »? 41 49 70 
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. ,9,6 


~'.D.E.PARmE.NJ. J DIAL' 
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..9.S 




Ano.uyj 


,.9.6 


}■ ■pM-*i t £1°. .**■ ■ . , 


WPMT 


,.9£ 


- » I ,, 1^1 l„^,tl..l f ifoVSl,!,. IJ, I .JL,I II 1 



VALUE IN 
DATA FIELD 



000030 46 
000030 46 + 
000030 46. 



CONTAINED 
IN OUTPUT 
RECORD AS : 

26.75 

DEPARTMENT TOTAL 

30.46 CR* 

$30.46 

*****30.46CR** 



Figure 82. Example of Using Constants and Edit Words 
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FILE DESCRIPTION SPECIFICATICNS_FOEM 



Each file used by the object program must 
be defined. Each line of the File Descrip- 
tion form is used to define one file. 

1. The input files, specified on the Input 
Specifications form, from which the 
object program obtains data records. 

2. Input table files, and HA files. 

3. The output files, specified on the 
Output-Format Specifications form on 
which the object program writes data 
records. 
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| Type of File 1 


Max 


. No. | 




of 


Files | 

_ J 


j Primary 1 




1 I 


| Secondary 1 






| with/without | 






| matching fields | 




8 I 


| Becord Address | 






| File 1 




1 I 


| Chained 1 




9 I 


| C1-C3 I 




3 I 


| Chain Operation | 




9 I 


| Table I 




8 I 


| Output I 






| Printer I 




2 I 


| Other Output Unitsl 




9 I 



sion Specifications form (for tables, RA 
files, chaining files) . 

Note ; The filename may be up to eight 
characters long, but RPG recognizes only 
the first five characters of a file name. 
Therefore, it is important that the first 
five characters constitute a unigue file 
name. Special Characters or embedded 
blanks may not be used. 

File_T,y,p_e (Column__15}_ 

An entry in this column specifies the type 
of file defined on this line. The follow- 
ing entries are allowed: 



Type of 
Into F ile 

I Input 



o output 



U Update 



Identifies the file as an 
input file (it may be a 
table file, RA file, or a 
file containing input data 
records which are read 
only) . 

Identifies the file as an 
output file. It may be an 
output data file or an 
updated table file to be 
printed, punched, or 
written* 

Identifies the file as an 
update file (DASD only) . 
An update file is both an 
input and an output file. 
It must be specified simi- 
larly to an input file on 
the Input Specifications 
form. The file is an upd- 
ate file if the object pro- 
gram alters the data in one 
or more fields of each re- 
cord contained in the file 
without changing: 



Figure 83. Maximum Number of Files 



IilS_Nam€_JColumns_7;;141. 

Each file used in the program is identified 
by writing the name of the file in columns 
7-14. Filenames must be alphameric and 
left- justified (the filename must begin in 
column 7). The filename entered in these 
columns must also be entered on the Input 
Specifications form (for input data files) , 
on the Output-Format Specifications form 
(for output data files) , or on the Exten- 



3. 



The nature of the data. 

The length of the field 

in which the data is 

found. 

The location of the 

field. 



A chained file may be 
updated at detail time or 
at total time. All other 
disk files can be updated 
only at detail time. 
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C Combined Identifies the file as a 
combined card file. 

A combined file is a card file contain- 
ing cards that are read into the system and 
cards used for punching* Beading and then 
punching into the same file is accomplished 
in two different ways: 

1. Punching into cards that contain input 
data. 

2. Punching into a blank trailer card in 
the same file. 

For those cards of a combined file that 
are read only, Stacker Select entries 
should be specified on the Input Specifica- 
tions form. This will reduce the time 
required to run the object program. For 
combined-file cards that are punched, 
Stacker Select entries must not be speci- 
fied on the Input Specifications form. 

A combined file differs from an update 
file in that the update file input fields 
are revised or updated. A combined file 
can only refer to cards, and an update .file 
can only refer to disk. 

Figure 84 illustrates two examples of 
File_Name and File_T2£e specifications. 
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Figure 84. Example of Specifying File 
Name and File Type 



Detail cards are read into the system 
in one file. Summary cards are punched 
into a separate file which, in this 
example, contains blank cards only. 
The printed report is a third file. 

There are two input files in this 
examples The second file (INSECNDY) 
also contains cards that will be used 
for punching output data; therefore it 
is specified with file type C. 



F i 1 e_ D e s i 3 n a t i o n ( C o 1 u m n__1 6 ]_ 



Column 16 is used to designate the type of 
input file being defined on this line of 
the File Description form. The five 
entries permitted in this column are: 

Entr_y Explanation 

P The file defined is a primary file. 

Only one primary file may be defined. 

A primary file is an input file. 

S The file is a secondary file. 

T The file defined is an input table 
file. 

E The file defined is an EA file which 
relates to a direct access storage 
file. A record address file is spe- 
cified in the File Description and 
Extension Specifications forms. 
Entries for BA files are not per- 
mitted in the input and output 
specifications. 
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If the file is an output file identi- 
fied by in column 15, leave this column 
blank; an entry must be made if the file is 
an input, update, or combined file. 

Detailed explanations of chained files, 
table files, RA files, primar-y files, and 
secondary files may be found in the sec- 
tions Using Tables in th e Object Program 
and P r oce s s ing_ M u ltijal e_I n£ u t_F i le s . 

The priority of multiple secondary 
files is determined by the sequence in 
which they are recorded on the File 
Description form. For further information 
refer to the section Order o f P rocessing 
lS£ords_Using_the_Matchina_Techniaue. 

End of File (Column_17) 

Enter an E in column 17 if the input file 
is a primary, secondary, or an RA file and 
the programmer wishes to determine an end 
of job after the end-of-file condition for 
this file has been reached. For multiple 
input files, the end~of-job condition (LR) 
will occur when all input files for which 
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an E is specified in column 17 have been 
processed. 

If this column is left blank for all 
input files, the end-cf-job condition 
occurs when all input files have been 
processed* 

U£±.§_1: An E should not be entered in 
column 17 if the file~Is processed in ran- 
dom mode or if the file is either an output 
or a table file. 

Note_2: If a matching records job has an E 
on the primary file and no E«s on the 
secondary files, any matched secondaries 
will be processed before the end cf job 
occurs* 

Seauence_iColumn_181. 

This entry is made if the matching-fields 
specification (columns 61-62 of the Input 
Specifications form) is usedi An entry in 
this column indicates whether the matching 
fields are in ascending or descending 
sequence* 

Enter an A in column 18 if the matching 
fields are in ascending order, or a D if 
the matching fields are in descending 
order. 

If the matching field specification is 
not used, this column is left blank. 

File_Pormat_jColUmn_J91 

Enter an F in this column* Records may 
only be fixed-length. 

Ji2£k„Lenc[th and_Record_Lenqth (Columns 
20^271 " 

Enter right- justified the length of one re- 
cord in Record Length (columns 24-27) . 
Leave Block Length (columns 20-23) blank. 
Disk files will be automatically blocked so 
the maximum number of records will fit on a 
disk sector. Card and Printer Files cannot 
be blocked* 

Maximum record lengths are as follows: 

80 characters 



2501 and 1442 

I/O units 

1132, 1403, or 

console printers 

sequential or 

direct disk files 

indexed-seguential 
disk files 



120 characters 
640 characters 
636 characters 



Columns 28-38 must be left blank for 
card- or printer-file specifications. 

Mode__oJ_Iile_ProcessincLjColumn_28]_ 

This column is used to indicate the method 
or mode by which disk files are pr-ocessed. 
Acceptable entries are listed here. 



SSill liEianation 

Blank Leave this column blank 
file is to be processed 
or created. If an index 
tially organized file is 
created, column 15 of th 
Description Specificatio 
contain 0, column 32 mus 
I, and column 66 must be 
If an indexed sequential 
be added to, this column 
blank. 



if the disk 
sequentially 
ed sequen- 

to be 
e File 

ns form must 
t contain an 

left blank. 

file is to 

must be 



R Enter an R in this column if the 

user's records are to be processed 
randomly. In this case, the records 
of an indexed sequentially organized 
file to be processed will be obtained 
by the CHAIN operation (or C1-C3) 
using key fields. The records of a 
sequentially organized disk file will 
be processed randomly by using the 
CHAIN operation (or RA file) and 
relative record numbers. 

L Enter an L if a segment of an indexed 
sequential file is to be processed 
using limits specified by an RA file. 
Only an indexed sequential file can 
be processed within limits. 

I:£M±h_of_Ke2_Fieia_or_of_Record_Address 
lield_JCOlumns_29-301 - - - 

If the file defined on this line is a Re- 
cord Address file (RA file), enter the num- 
ber of positions that each entry in the RA 
file occupies. 

Enter the length of the key, if the 
file defined on this line is a file with an 
indexed-sequential organization (I in 
column 32) . The maximum key length is 50 
characters. 

lI£e_2f_l§cord_Address_iColumn_3_l)_ 

K Enter a K in this column if the file 
is an indexed sequentially organized 
file. The K indicates that the file 
defined on this line will be pro- 
cessed by use of the record key. 

blank For sequential file 



Note^ If the record lenqth entry is mis- 
sing, a record length cf 80 is assumed. 
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ll£e_of_Iile_0r2anizaticn_JColumn_321 

1 Enter an I in this column if the file 
to be created cr processed has an 
indexed sequential organization. 
(There must also be a K in column 31 
and 1 in column 38) . 

blank leave this column blank if the file 
is organized sequentially. 

2 Enter the digit 2 to signify twc I/O 
areas to be assigned to a card read- 
er, punch, or printer file. Stacker 
select (Input Specification, column 
42) should not be specified. (Any 
entry 1-9 may be used but the digit 2 
is preferred.) 



RULES FOE SPECIFYING MODE OF PROCESSING, 
TYPE OF RECOBE ADDRESS, AND TYPE OF FILE 
ORGANIZATION 

1. If a direct access storage device is 

not used in the system, columns 28, 31, 
and 32 are left blank. 

2i For sequential file organization, 

columns 28, 31, 32 are also left blank. 



4. 



For indexed sequential file organiza- 
tion (I in column 32), column 31 must 
contain a K and column 28 can contain 
either R, L, or blank. 

For direct file organization (D in 
column 32) , column 31 must contain an 
N. 



Figure 85 illustrates the code combina- 
tions possible for these three 
specifications. 

0ve£flow_Indicator_j[Columns_33-34jL 

If the file defined on the line is a 1132 
or 1403 printer file and overflow indica- 
tors are used, enter the overflow indicator 
associated with the file. The permissible 
indicators are OF and OV. Do not specify 
an overflow indicator for the console 
printer. 

Mi_Zieia_Startin3_Xocation_JColumns_3 5 z 38l 

Enter a 1 in column 38 if the file speci- 
fied has indexed sequential organization. 
With 1130 indexed sequential organization, 
the key field always begins in position 1. 



h 



Type of File Organization 
(Col. 32) 



Indexed-Seguential 



(I) 



+- 



Sequential 



Direct 



(D) 



Type of Record Addresses | 
(Col. 31) | 



Record Key 



+- 



Mode of Processing 
(Col. 28) 



(K) | The entire file will be 
Iprocessed. 
( 



(blank) 



Net applicable 



|A segment of the file will be (L) 
Iprocessed. The limits to be 
Iprocessed are supplied by a 
(Record Address File (EAF) . 

I The records will be proces- (R) 
| sed randomly. 

f 

|The keys are supplied: 
I (a) by Factor 1 of the CHAIN 
lOperation (b) by a chaining 
Ifield (C1-C3) or (c) by a 
| record address file (RAF). 
| The records will be processed (R) 
I randomly - the record 
Inumbers are supplied by Factor 1 
| of the CHAIN operation 
|or by a RA file. 
+ 



(blank) |The entire file will be 
Iprocessed. 
+- 



Record Number 



(N) | 



I The records will be 
Iprocessed randomly. 



(blank 



(P) 



Figure 85. Processing Direct Access Storage Files 
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The key field can be either an alphameric 
or numeric field. It cannot be packed. 

Extension_Code (Column_391 

If the file defined on the line is a chain- 
ing file (using C1-C3 codes), EA file, or a 
table file, enter an E in column 39. The E 
specifies that additional information about 
the file will be coded on the Extension 
Specifications form. 

Device_^Coluiun£_40-4 6). 

These columns are used to indicate the 
input/output units used by each file. The 
following entries can be used: 



Entry 

PRINTER 

PHINT32 

PUNCH42 

READ42 

READ01I 

CONSOLE 

DISK 



In£i}tZOutput_Unit 



IBM 1403 

IBM 1132 

IBM 1442 

IBM 1442 

IBM 2501 

Console printer 

IBM 2310 disk 



printer 

printer 

punch 

reader/punch 

reader 



Sy m b o 1 i c_D e v i c e (Column s_ 4 7 - 5 2 )_ 



These columns are used in 1130 RPG only 
when the file described is indexed sequen- 
tial and is to be loaded. Enter left- 
justified the maxlmun number of records in 
the filei This number may not exceed 
99999. A message will be printed during 
compilation which describes how many disk 
sectors are needed for a file of this size. 

Column s_53_36 5 

Columns 53 through 65 are not used by 1130 
BPG and must be blank. 

FileAddition (Column 66) 

Enter an A in this column if the file 
defined on this line is an indexed sequen- 
tial organized file and new records are to 
be added. The actual record or records to 
be added are described en the Output Speci- 



fications with an entry of the characters 
ADD in Columns 16-18. 

For all other file description specifi- 
cations, this column must be left blank. 

Figure 86 illustrates the code combina- 
tion for columns 15 and 66 of the File 
Description Specifications form if the file 
defined is an indexed sequential organized 
file (I in column 32) . 



Column! ColumnJ Mode of Processing 
15 | 66 | 



+ 



j blank | Creating an 

| A | Adding reco 
| | file. 

1 | blank | Processing 

| | without upd 

| |out additio 

| | records. 

I | A (Processing 

| |and adding 

U | blank (Processing 

| | records of 

U j A (Processing 

j jrecords of 

I (adding new 

| |.file. 

a a. 



IS file (load), 
rds to an IS 

of an IS file 
ating and with- 
ns of new 

of an IS file 
new records, 
and updating 
an IS file* 
and updating 
an IS file and 
records to the 



Figure 86. Summary of Code Combinations 

for an Indexed Sequential File 



ColuiHS_67-74 

Columns 67 through 74 are not used. Leave 
blank. 



ENTHIES ON THE FILE DESCRIPTION 
SPECIFICATIONS FORM 

Figure 87 shows several examples of entries 
on the File Description Specifications 
form. The numbers to the right correspond 
to the explanation that follows. 
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Figure 87. Example of Using the File Description Specifications Form 



1. The P in column 16 indicates that the 
input file INPUT is the primary file. 
The E in column 17 indicates that the 
end-of-job condition will occur when 
the end of the file is reached. The 
file is ascending (A in column 18) . 
Each record is 80 characters long. 
This file is read in on an IBM 1442. 
The device code is EEAD42. 

2. The EA file defined on this line has a 
fixed format (column 19) . Each record 
is 80 characters long and the length of 
each record address field is 8. The E 
in column 39 indicates that the Exten- 
sion Specifications fcrm will be used. 
The RA file is read into the program by 
an IBM 2501 Card Header. The device 
code is READ01. 

3. The third file defined on this form is 
a table file indicated by a T in eclumn 
16* It has a fixed format and a record 
length of 100. Column 39 (E) indicates 
that it will be further described on 
the Extension Specifications form. The 
file is read in from magnetic disk; 
therefore, the Device code is DISK. 



6. 



MASTcUst is an input file that will be 
processed under the control of chain- 
ing, it is a chained file (C in column 
16) that will be processed randomly (R 
in column 28) . The record addresses 
that will be referred to by the chain- 
ing file are keys (K in column 31), a n d 
the file has an indexed-seguential 
organization (I in column 32). This 
file is located on a direct access 
storage device and the Device code is 
DISK. 

The update file DISKUPDT (o in column 
15) will be used for input, and it will 
be updated after the processing of each 
record has been completed. It is an 
indexed-seguential file, and it will be 
processed randomly. The C in column 16" 
indicates that the file is a chained 
file. The record length is 200. This 
file is located on a direct access 
storage device and the Device code is 
DISK. The key field starting location 
(columns 37-38) must be position 1 
within the data record. 

The file CARDREC is a combined file 
(column 15). The file will be used as 
input, and additional information will 
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be punched in the input cards during 
processing* It is a secondary file 
(column 16) * This combined file is 
read in and punched out on an IBM 1442. 
The specified device code is EF.AD42. 

7. The file OUTPUT is to be a printed 
report on the 1403. The length of the 
record is 120 characters. The printed 
report has a Device code of PRINTER. 
The overflow indicator OF has been 
assigned to this printer. 

8. The file ISAM is an indexed sequential 
file (I in column 32) with a record 
length of 75 characters. The file is 
to be initially loaded (0 in column 
15)* The key field is six characters 
long (columns 29-30) and begins in 
position 1 (columns 35-38). The system 
should allocate space for 5000 records 
to be loaded in this file (columns 
47-52) . SPG will automatically print 
the number of sectors that will be 
required for this file. The index will 
be organized using the first six posi- 
tions of the output record as the key 
field. 

9* The same file that was created in line 
08 is being added to in line 09. The 
entries are identical except that the 
number of records tc be allowed is not 
specified. There is an A in column 66 
to denote the add function. The let- 
ters ADD are required on the Output 
Format Specifications (columns 16-18) 



for the record to be added. When 
adding records, no retrieval or updat- 
ing is allowed on the file during the 
addition operation. 

10. The file SEQDISK is a sequentially 
organized disk file (blank in column 
32) of 60 characters. No sequence 

(blank in column 18) is specified since 
it is the only input file for the job 
and no sequence checking is to be done. 

11. The same sequential file described in 
line 10 is now being processed randomly 
(R in column 28) as a chained file (C 
in column 16) * A relative record num- 
ber will be used to randomly retrieve 
records from this file. 

12. The file ISAMLIMT is an indexed sequen- 
tial organized file being processed by 
limits. It will be treated as an input 
file (I in column 15) and is a secon- 
dary file (S in column 16) being 
matched against a primary file. The 
match fields are in ascending sequence 
(A in column 18). The records are 130 
characters long (130 in columns 24-27) . 
The file is limited (L in column 28) by 
an RA file which will supply the 
limits. The key is three bytes long (3 
in columns 29-30) and must begin in 
position 1 (1 in columns 35-38) . The 
entries of K-I (columns 31-32) are 
required for an ISAM file and an ISAM 
file can only reside on disk (DISK in 
columns 40-46) * 
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1XT__SI0__S__CI_I CATIONS FORM 



Entries made on the Extension Specifica- 
tions form provide information to SPG aobut 
chaining files (except when processed with 
the CHAIN operation) , tables used in the 
object program, and EA files* In the sec- 
tions y._iM_Table__i___h__0__ect_Pro_ra_ 
and |rocessina_Multi£le_Iniut_Files, 
detailed information and examples show how 
to use these functions. 



columns blank if the file is not a chaininq 
file. 

Enter the identifying number of the 
chaining field (C1-C3) in columns 9-10. 
This number must be the one entered in 
columns 61-62 (Chaining Fields) of the 
Input Specifications form. 



RECORD SEQUENCE (COLUMNS 7-8) 



These columns are used when chaining by the 
alternate method described in the section 
I n £_t_S__cif __________ orm . 

If the file defined on this line is a 
chaining file, enter the sequence of the 
file from columns 15-16 of the Input speci- 
fication sheet* The file name of the 
chaining file is taken from columns 7-14 of 
the input specification sheet* 

Leave these columns blank if the file 
described is a RA file. 



NUMBER OF THE CHAINING FIELD (COLUMNS 9-10) 

These columns are used when chaining by the 
alternate method described in the section 
Ii3£ut_S£ecifications_Fcrm. Leave these 



FROM FILE NAME (COLUMNS 11-18) 

Enter in these columns the name of the 
chaining file, the RA file, or the table 
file. 



This specification i 
tion with the next speci 
Filename (19-26) . The p 
specifications is to ide 
RPG program — the relat 
files. For example, the 
name of an input table f 
the table file that is t 
of job. Both From Filen 
are taken from Filename 
the related entry on the 
form. 



s used in conjunc- 
fication To 
urpose of these two 
ntify — for the 
ionship between two 
y may provide the 
ile and the name of 
o be output at end 
ame and To Filename 
(columns 7-14) of 
File Description 



Figure 88 illustrates the entries for 
these two specifications. 



TO FILE NAME (COLUMNS 27-32) 
Refer to Figure 88. 



Type of File |* From File Name (11-18) 
f- 



|* To File Name (19-26) 



Chaining Files| ______ f_Chaini___Fiie_ This is the 

| file that has the data record 

|containing the chaining field. 

I The name of the file is taken from 

Icolumns 7-14 of the File 

| Description Specifications form* 

f 



Naje_0f_Cha.inin3_Fj.lei This is the 
file from which the~data record is 
obtained* The name of the file is 
taken from columns 7-14 of the File 
Description specifications form for 
the chained file* 



Record Address|The name of the RA file 
File lis entered in this specification. 

I 

f 



h 

I The name of the file that contains 
I the data record to be processed is 
I entered in this specification* 



Table Files 



I If a Table is being defined 

I (columns 27-57) enter the 

I name of the file that contains the 

| table data. 

I 

I 



+ 

| If the table being defined will be 

I printed, punched, or written after 

|it is updated, enter the name of the 

I table output file. 

I If it is not being printed or 

I written, leave the field blank. 



H 



Figure 



From and To File Names 
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TABLE NAME (COLUMNS 27-32) 



Column 
the ta 
table 
approp 
of onl 
entere 
must c 
first 
charac 
must b 



s 27-32 contain the name of either 
ble that contains arguments or the 
that contains functions. If the 
riate table records contain entries 
y one table, the name of the table is 
d in these columns. A table name 
onsist of 4, 5, or 6 characters. The 
three must be TAB; the remaining 
ters must be alphameric. The entry 
e left- justified. 



NUMBER OF TABLE ENTRIES PES EECOKD (COLUMNS 
33-35) 

Enter in columns 33-35 the maximum number 
of table entries (i.e., the number of argu- 
ments or functions) that are contained in 
each input record. This entry must be 
right- justified. 

NUMBER OF TAELE ENTBIES FEB TABLE (COLUMNS 
36-39) 

in these columns, enter the number of table 
entries contained in the table. This entry 
must be right- justified. 



LENGTH OF TAELE ENTBY (COLUMNS 40-42) 

Enter in columns 40-42 the length of each 
table entry* The maximum lengths are 248 
alphameric characters or 14 numeric digits. 
For a packed field enter the number of 
digits of the field. The entry must be 
right- justified. 



PACKED (COLUMN 43) 

If the data in the table is in the packed- 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 
(Packed data may only be from disk files.) 



this column. 
D If the data contained in the table is 

in descending sequence, enter a D in 

this column, 
blank Leave this column blank if the data 

contained in the table is not in 

ascending or descending sequence or 

if this specification is not 

required. 

The table must be defined as either 
ascending or descending if it is used in a 
LOKUP operation as Factor 2 (argument 
table) and high or low indicators are used. 



COLUMNS 46-57 (SECOND TABLE) 

Columns 46-57 are used if a table file con- 
sists of alternating arguments and 
functions. 



TABLE NAME (COLUMNS 46-51) 

If two table names are used, enter the 
second table name in these columns. The 
entry must be left- justified. 



LENGTH OF TABLE ENTBY (COLUMNS 52-54) 

Enter in these columns the length of each 
table entry. The maximum length of a table 
entry is 248 alphameric characters or 14 
numeric digits. For a packed field enter 
the number of digits of the field. The 
entry must be right- justified. 



PACKED (COLUMN 55) 

Enter a P if the data in the table is in 
the packed-decimal format. Otherwise, 
leave this column blank. (Packed data can 
only be from disk files.) 



NUMERIC DECIMAL POSITIONS (COLUMN 56) 



DECIMAL POSITIONS (COLUMN 44) 



This column is used o 
contain numeric data, 
there are no decimal 
number of decimal pos 
column if the data co 
tions. If the field 
this column blank. T 
positions cannot exce 
table entry defined i 



nly if the entries 

Enter a zero if 
positions. Enter the 
itions (1-9) in this 
ntains decimal posi- 
is alphameric, leave 
he number of decimal 
ed the length of the 
n columns 40-42. 



SEQUENCE (ASCENDING OB DESCENDING, COLUMN 
45) 

A If the data contained in the table is 
in ascending seguence, enter an A in 



If the 

eric, 

positi 

positi 

contai 

field 

blank 

not ex 

define 



data contained in the table is num- 
enter a zero if there are no decimal 
ons. Enter the number of decimal 
ons (1-9) in this column if the data 
ns decimal positions. If the data 
is alphameric, leave this column 

The number of decimal postions can- 
ceed the length of the table entry 
d in columns 52-54. 



SEQUENCE (ASCENDING OB DESCENDING, COLUMN 
57) 

A If the data contained in the table is 
in ascending seguence, enter an A in 
this column. 
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D If the data contained in the table is 
in descending seguence, enter a D in 
this column. 

blank Leave this column blank if the data 
contained in the table is not in 
ascending or descending seguence or 
if this specification is not 
reguired. 

The table must be defined as either 
ascending or descending if it is used in a 
LOKUP operation as Factor 2 (argument 
table) and high or low indicators are used. 
If the table is used in the Besult Field of 
a LOKUP operation it does not have to be 
specified as ascending or descending* 



COMMENTS (COLUMNS 58-71) 

Columns 58-74 may contain comments. 



ENTRIES ON THE EXTENSION SPECIFICATIONS 
F0EM 

Figure 89 shows four examples of Extension 
Specifications form entries. The numbers 
at the right of the example correspond to 
the explanation that follows. 



1. in this example, the alternate method 
of chaining is described. INPUT is a 
card file containing the record key 
that will be used to process records in 
the DASD file MASTCUST. The file INPUT 



is the chaining file, (i.e., it is the 
file that links or chains to another 
file). The field contained in INPUT, 
which is used to link the two files, is 
the chaining field. The AA entry in 
columns 7-8 denotes the record sequence 
entry of the chaining file record. d 
is the number of the chaining field. 
Thus, INPUT is chained to MASTCUST by 
using a field defined on the Input Spe- 
cifications form that contains C1 in 
columns 61-62. A complete discussion 
of chaining may be found in the section 
££2£essin3_Multi£le_Iri£ut_Files. 

In this example, EAFFILE is an EA file 
that supplies the record number of the 
records to be processed in the file 
DISKUPDT. The DISKUPDT file in this 
example is a direct access organized 
file* The same entries are made if it 
is an indexed seguential file. In this 
case the EA file would have to supply 
the actual keys to be processed or the 
limits of the file to be processed. 

TABFIL is the name of a table file that 
contains both a table of arguments and 
a table of functions. 
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can then specify whether it should be 
an equal, high, cr low search*, 

The functions in the file are identi- 
fied by the table name TABFUN. The 
function table is described in columns 
52-57* Each function is 10 characters 
long. The table is organized in the 
form: argument-function. Therefore, 
TAEAEG was specified first. 

This example shows the specifications 
for a table file that contains only 
arguments- After the table of argu- 
ments is updated, the table is to be 
written or punched en an output unit. 



OLDTAB is the name of the input 
table file. NEWTAB is the name given 
to the output table file. 

The arguments in the file are contained 
in the table named TABEEC. The argu- 
ment table is described in columns 
33-45. Five table entries are in each 
record. The number of table entries in 
the table is 10, and each table entry 
is 12 characters long. The data is 
numeric. TABREC is the name used on 
the Calculation Specifications form 
when specifying a table look-up or upd- 
ate operation. 
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A table is an arrangement of data that is 
searched and used by the object program. 
Tables are loaded into storage by the EPG 
object program before any files are 
processed* 



Arguments 



Argument 1 
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Argument 3 //Argument N 
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Functions 



Function 1 



Function 2 



Function 3 //Function N 



Alternating Arguments and Functions 



Argument 1 



Function 



Arg. 2 // Arg. N 



Fun. N 



Alternating Functions and Arguments 



Function 1 



Argument 



Fun. 2/f Function N 



Arg. N 



Entries in a table may be (Figure 91): 

1. Arguments 

2. Functions 

3* Alternating arguments and functions, or 
4* Alternating functions and arguments. 



Figure 91. The Four Types of Tables 
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Figure 90. Example of Using a Table 
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RULES FOE FORMING TABLES 

1. For tables consisting of arguments 

only, or functions only, each unit of 
table data is called a table entry. 
For tables consisting of alternating 
arguments and functions, one argument 
and one function are called one table 
entry* 
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A unique filename (columns 11-18) 
Entries in columns 27-45 if the 
table contains only arguments or 
functions. 

Entries in columns 27-45 and 46-57 
if the table consists of alternat- 
ing arguments and functions. 



Rules_for_Creatijia_Eecord£_Conta^ina_Table 
Data 

1. The first table entry for each record 
must begin in column 1. 

2. All records must have the same number 
of table entries, except the last (see 
Figure 92). 

3. All entries must be continuous in every 
record. In Figure 92, the first entry 
begins in position 1 and the second 
entry begins in position 10. No blanks 
may be contained between the table 
entries. 

4. All function or argument entries 
belonging to a table must have the same 
length. In Figure 92, each argument is 
three positions long, and each function 
is six positions long. 

5. When alternating tables are used, each 
record must begin with an entry of the 
same type, i.e*, each record must 
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Figure 92+ Sample Table File Containing Arguments and Functions 
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Figure 93. Sample Table File Containing Arguments Only 



always begin with an argument, or each 
record must always begin with a. func- 
tion as shown in Figure 92. 

6. When alternating tables are used, the 
table entries in each record must not 
be spliti Function 3, for example, 
must be in the same record as argument 
3. It is not permissible for a func- 
tion to appear in a different record 
from its corresponding argument. 

7. If a table consists of all arguments or 
all functions, an argument or a func- 
tion must not be split. Assume that 
argument one, argument two, argument 
three, and argument four are contained 
in the first record. No part of argu- 
ment four could overflow into the 
second record. Figure 93 illustrates 
the correct way to specify records con- 
taining arguments or functions* 
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9. The maximum length of alphameric 
entries is 248 characters* Numeric 
entries must not exceed 14 digits in 
length. 

10. The records of a table must be on a 
sequentially organized file. 

11. The table file to be loaded must con- 
tain the exact number of table entries 
as specified on the Extension Specifi- 
cations form. 

12* The record format for a table must be 
fixed-length. However, there may be 
more than one table entry per record. 

13. when tables are read from or written 
onto disk, each table is regarded as 
one file* 

14. If multiple tables are loaded from a 
card reader, the same device name is 
used on the File Description Specifica- 
tions (however, the filenames must 
differ) . The sequence of loading 
tables is based upon the seguence 
assigned on the Extension 
Specifications. 

15. 1130 BPG has a limit of eight table 
files. This means that no more than 
eight lines for tables may be coded on 
the Extension Specifications. If each 
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table has an alternating table, it is 
possible to have 16 different table 
names. 



METHODS OP PROCESSING TABLES 

The operation code LOKUP entered on the 
Calculation Specifications form causes a 
table lookup operation to be performed. 

Factor 1 contains the search argument. 
The search argument may be a literal or a 
field name. Factor 2 contains the name of 
the table which contains the arguments. 

Notei The length of the data in the argu- 
ment table (table argument) must be equal 
to the length of the search argument. The 
length includes the decimal positions* 
Decimal alignment will be performed. 

The result field contains the name of 
the table from which an associated function 
is to be located, if arguments and func- 
tions are used. The result field may be 
left blank if the user wants to determine 
if an argument is present in the table, but 
a corresponding function is not required. 

Resulting indicators (columns 54-59) 
must always have an entry when the table 
lookup operation is performed. The indica- 
tors indicate the type cf lookup tc be per- 
formed, and the indicators are turned on 
whenever the condition is satisfied. The 
program may search for the table argument 
next higher than the search argument 
(resulting indicator in columns 54-55) or 
it may search for the table argument next 
lower than the search argument (resulting 
indicator in columns 56-57) or it may 
search for the table argument equal to the 
search argument (resulting indicator in 
columns 58-59) * An entry must be made 
somewhere in columns 54-59. A high-egual 
or low-egual search may be specified by 
placing indicators in the appropriate two 
of the three fields (columns 54-59) . It is 
not possible to specify indicators in both 
the high and lew columns. 

Notej_ Indicators must not be placed in 
High or Low if the table is not in ascend- 
ing or descending sequence. 

The compare operations are logical for 
alphameric arguments and algebraic for num- 
eric arguments. The search arguments must 
have the same format as the table entries 
compared with them, i.e., they must be num- 
eric for numeric table entries, etc. 
Decimal alignment is performed if numeric 
search arguments and table entries have 
differing decimal lengths. 

The lookup operation is performed in 
this way: 



1. The object program takes the field name 
or literal in Factor 1 and searches the 
table indicated by Factor 2. The kind 
of lookup is determined by the entries 
in the resulting indicators. 

2. After the proper entry from the argu- 
ment table has been found, the corres- 
ponding function from the function 
table (indicated by the entry in the 
result field) is located. Then, argu- 
ment and function are placed in special 
holding areas for the function and 
argument tables. If the proper table 
argument is not found, the indicators 
in columns 54-59 are not turned on. 

Other operations may be performed using 
the data just found by the table-lookup 
operation which is stored in special hold- 
ing areas for the function and argument 
tables. It can be retrieved by using the 
name of the function table in either Factor 
1 or Factor 2 of an operation. 

D£dating._Tables 

In addition to using a function obtained by 
means of a LOKUP operation, calculations 
can be performed to change the argument or 
the function in the appropriate holding 
area as well as the table* This can be 
achieved by entering the defined name of 
the function or argument table in the 
Result Field and by entering an arithmetic 
operation code (such as ADD, SUB, MOLT, 
DIV) or a move operation code (such as 
MOVE, MOVEL, MHHZO, etc) in Operation. 
This procedure changes the contents of the 
function or argument holding area and the 
table. If a Blank After specification is 
entered on a table name, both the holding 
area and the specific table entry will be 
blanked or zeroed out. 

The RPG program returns the updated 
contents of the appropriate holding area to 
the location in core storage from where it 
was retrieved by the LOKUP operation. 
Updating of data in a table can be per- 
formed only on an argument or the related 
function obtained by means of the last pre- 
ceding LOKUP operation that refers to this 
table. The programmer must ensure that an 
entry was found that satisfies the table 
search condition (specified by the result- 
ing indicators) before updating the table. 
If no entry is found and updating occurs, 
the last found entry will be updated. 

Figure 94 illustrates several ways in 
which the data found by the operation can 
be used. The numbers on the figure refer 
to this discussion. 
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Example Using the LCKUF Operation Code 



1. 



4. 



Factor 1 contains the name of a field. 
The field PERCNT contains the search 
argument. The name of the table that 
contains the arguments is TABCST. The 
name of the table that contains the 
corresponding function is TABAMT. The 
program will search for the value in 
the argument table that is egual to the 
search argument because cf the entry in 
columns 58-59. 

The function found in TABAMT from the 
previous operation is used as the 
search argument in this example. 
(TABAMT is the name of the table; 
however. Factor 1 is the function 
stored in the special holding area of 
the table TABAMT*) The program 
searches for the value in the table 
TABABG that is egual (columns 58-59) to 
the search argument. 

The data obtained from the function 
table TABFUN from the previous lookup 
operation is moved to a field called 
WITHTX. It will be used for additional 
calculations. 

The data found in the function and 
argument tables is updated. The liter- 
al +25 is the search argument. The 
table TABFIL is searched for +25 (indi- 
cated by the entry in columns 58-59) . 



A new entry for the corresponding func- 
tion of +25 is entered in TABLIT. The 
new function is +500; the new argument 
is +30. When updating a table, both 
the special holding area and the table 
entry are changed. 

In example 5, a lookup with only one 
argument table turns on indicator 30 if 
SEARCH is egual to an argument in TAB- 
NUM. If 30 is not on (N30) , H1 is 
turned on by the SETON operation. 

This example illustrates how entries 
are added to the table. The LOKUP 
operation is conditioned by indicator 
01. (Indicator 01 is turned on when 
the input file contains records with 
additional table information. Each re- 
cord contains the two fields, NE«ARG 
and NEWFUN.) To determine the first 
vacant argument, a field of zeros is 
used as the search argument. Zeros are 
used if the argument field is numeric, 
whereas blanks are used if the argument 
field is alphabetic. However, these 
zeros or blanks must be loaded as part 
of the table at the beginning of the 
job. If there is an equal compare, 
indicator 35 is turned on. Because the 
argument field of the table is vacant, 
the corresponding function field is 
also vacant. The new argument (NEWARG) 
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is inserted in the TABARG field, and 
the function is inserted in the TABFUN 
field* 



Figure 94.1 shows the actual contents of 
four tables. The Extension Specifications 
for entering them into a program are shown 
in Figure 94.2. TABLEC and TABLED are 
entered in an alternating format. 

The Calculation Specifications show 
various IOKUP possibilities with various 
indicator settings. (See Figure 94.3) 

Figure 94.4 then describes the results 
of each of the LOKHP statements. The indi- 
cator is only set when the search is satis- 
fied in the table* If the search is net 
satisfied, the table holding areas will 

contain the value of the last satisfied 
search. 
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Figure 94. 1 Content of Four Tables 
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RETRIEVING TABLES 

After a table has been updated, the table 
may be written or punched out for later 
use. On the File Description Specifica- 
tions form, the programmer enters the name 
of the file that will contain the updated 
tablet The file must be defined as a 
sequentially organized output file. On the 
Extension Specifications form, the pro- 
grammer enters the name of the file on 
which the updated table will be written 
under To Filename. The name of the table 
is entered in columns 27-32. If two tables 
are to be put out, enter the name of the 
second table in columns 46-51. The updated 
table files will be put onto the output 
file after the program has reached the end- 
of-job condition (LR condition). This out- 
put file must have the same format and size 
as the input table file. No editing is 
possible for printing of tables. If edit- 
ing is necessary, two approaches are possi- 
ble (see Exam£le_of_Retrievina_Tables) : 

1. The table is written onto disk and 
then read back in and edited in a 
second job. 

2. The table is put out at LR time 
using the EXCPT operation and a loop 
on the Calculation Specifications. 



EXAMPLE OF USING TABLES 
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Figure 94.2 Extension Specifications for 
Table Entries 
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figure 94.3 Table Lookup (L0KUP Operations) 
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Figure 94.4 Table Lookup (Results of LCKOP Operations) 
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Figure 96. Coding Forms for Table Example 
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In this example, the table consists of 
alternating arguments and functions. The 
way the table data might appear is shown in 
Figure 95. The name cf the file that con- 
tains the arguments and functions is RATE- 
TABL. The collection cf arguments is 
called TABNUM (table number) , and the 
collection of functions is called TABBAT 
(table rate) . Entries en the specification 
forms follow. 

File_Descri£tion_S£ecif ications^Form 

The two files are defined on the File 
Description Specifications form. The file 
containing the input card records is called 
TIMECARD. It is an input file (I in eclumn 
15) and a primary file (P in column 16). 
When this file is depleted, processing is 
terminated (E in column 17) . Each record 
is 80 characters long (80 in columns 
26-27) . This file is read in on an IBB 
2501 Card Reader. 



The tabl 
below the ca 
file (RATETA 
(columns 7-1 
(I in column 
has a record 
E in column 
information 
Extension Sp 
is read in o 



e file is defined on the line 
rd-input file. The name of the 
BL) is entered in Filename 
4) . It is an input table file 
15, T in eclumn 16) . The file 
length of 80 characters. The 
39 indicates that additional 
about the file is coded on the 
ecifications form. This file 
n the IBM 1442 Card Reader. 



Extension_S£ecif ications_Form 

The name of the file is entered in From 
Filename (columns 11-18). The collection 
of arguments (TABNUM) is entered in the 
first Table Nane (columns 27-32). There 
are eight arguments per record (columns 
34-35) and 500 entries in the table 
(columns 36-39) . Each table entry is five 
positions long (5 in column 42) , and there 
are no decimal positions (0 in column 44) . 
The table is ascending (A in column 45) . 

The collection of functions is 
described in columns 46-51. Each entry in 
the table is four positions long (4 in 
column 54) , and there are three decimal 
positions specified (3 in column 56) . 



ISEyt„S£ecifications_Farm 



The in 
the In 
7-14. 
AA (co 
indica 
record 
cord i 
becaus 
not be 
type. 



put 
put 

The 
lumn 
tor 

is 
dent 
e re 

ent 



file (TIMEC 
Specificati 
file is as 
s 15-16) , a 
01 is turne 
present for 
ification c 
cord identi 
ered if the 



ABD) 
ens f 
signe 
nd re 
d on 

proc 
odes 
f icat 
re is 



is described on 
orm in columns 
d a sequence of 
cord identifying 
whenever an input 
essing. No re- 
are specified 
ion codes need 
only one record 



Lines 020 and 030 are used 
the locations of the two input 
by the program. The employee 
located in columns 1-5 of the 
as specified by the entries in 
tion (columns 47 and 51) , and 
number is given the field name 
number of hours worked. by the 
found in columns 42-44 of the 
as specified by the entries in 
tion. The name HRSWKD is assi 
field containing the number of 
by each employee. 



to describe 

fields used 
number is 
input record, 

Field Loca- 
the employee 

EMPNUM. The 
employee are 
input record, 

field loca- 
gned to the 

hours worked 



Calculation_S£ecif ications_Form 

Three calculation specifications are shown. 
On line 010, EMPNUM (employee number) is 
used as Factor 1. The employee number is 
the search argument. The operation code 
LOKUP which is coded in columns 28-32 
causes the lookup operation to be per- 
formed. Factor 2 contains the name of the 
collection of arguments (TABNUM) which is 
searched by the search argument. The 
result field contains the name of the 
collection of functions (TABRAT) . Thus, 
this operation causes the employee number 
(EMPNUM) to be used as the search argument 
for the data contained in TABNUM. The 03 
entered in columns 58-59 indicates that 
indicator 03 will be turned on when the 
program finds an entry in the argument 
table that is equal to the search argument. 

The specifications on line 020 are per- 
formed when indicator 03 is on. The rate 
for the employee (TABRAT 4 positions long, 
3 decimal positions) that has been located 
is multiplied by the number of hours worked 
(HRSWKD 3 positions long, 1 decimal posi- 
tion) and the result is stored (EARNS 5 
positions long, 2 decimal positions). The 
result is half-adjusted. 

If the search argument does not find an 
equal entry in the argument table (indica- 
tor 03 is not on) , the specifications on 
line 030 are performed. Columns 9-11 con- 
tain the specification N03. 

The literal +000.00 is then moved to 
the field EARNS, specifying that the em- 
ployee does not have an entry in the table. 



EXAMPLE OF RETRIEVING TABLES 



Occasionally, it is necessary to update 
a table during a program and to output the 
table once (e.g., at LR time) or several 
times (e.g., at L1 time). If output is 
required only at LR time, it can be accomp- 
lished by letting RPG put out the table and 
specifying a second program to print the 
results. 
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If the table must be printed and for- 
matted during the update program, a solu- 
tion is possible with EPG. 
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The File Description entries show two 
table files on disk and a card and printer 
file. The Extension Specifications shews 
TABL1 as being an alternating table con- 
taining TABCOD (the cede numbers of the 
items sold) and TABAMT (initially loaded as 
zeros and will be updated during the pro- 
gram) . There are 20 entries in TABU (one 
for each of the items) . 

TABL2 also has twenty entries and is 
made up of consecutive numbers 01 through 
20. This table will be used to assist in 
the output of the other two tables at the 
end of each salesman. The table entries 
are shown in Figure 96.1. 

The Input Specifications describe the 
item card and provide a level 1 control 
break on salesman number. 

The Calculation Specifications show 
three detail calculations* line 01 does a 
lookup of the field CODE of the item card 
against TABCOD to find the same item in the 
table* The result field of TABAMT denotes 
that the corresponding amount is also made 
available. 

Indicator 21 is set en if the search 
produces an equal entry. Line 02 sets on 
H1 if the entry is net found. Line O3 adds 
the field AMOUNT from the input card to the 
table TAEAMT if indicator 21 is on. 

This process continues until all of the 
salesman's cards have been read and a level 
1 control break occurs. At this point, 
TABAMT contains the correct amounts and 
needs to be put out. 

The total calculations start at line 06 
where indicator 30 is set on. This will be 
used to produce a heading line prior to the 



output of the table. Line 07 sets up the 
field COUNT to be equal to 1 so it can be 
used to search for the first entry in 
TABCOD. 

Line 09 does a lookup of TABNUM and 
produces the first entry of TABCOD (031) 
since the first entry in TABNUM is 01. 
Line 10 moves the first entry in TABCOD to 
a saved area. line 11 takes the saved area 
and looks for the same entry in TABCOD. 
The result field of TABAMT produces the 
corresponding entry* 

The programmer now has the data needed 
to print the first summary line. Line 12 
adds the amount in TABAMT to a total field. 
Line 13 makes a comparison to determine if 
the field COUNT has reached 20. When it 
reaches 20, the last item in the table 
(472) is ready to be printed. 

Line 14 causes a branch to exception 
output. Line 15 sets off indicator 30 to 
prevent repeated printing of the heading 
line. 

Lines 16 and 17 will be performed if 
the field COUNT has not yet reached 20. 
The branch to LOOP will start the process 
over again. The second time through the 
field COUNT will be equal to 2. This will 
cause the second item number (032) to be 
retrieved from the table and its amount to 
be printed. 

The Output Specifications show a typic- 
al detail output of the input card in lines 
01-04. The SLSMAN field is printed on the 
first line following a L1 control break. 

Lines 05-08 show the heading line which 
is to be printed just prior to printing the 
first item. Indicator 30 was set on to 
allow this and then set off after the first 
exception output was called for. 

Lines 09-11 show the output required 
for each item. TABCOD and TAEAmt are 
printed to provide the proper information. 
TABAMT is blanked after (zeroed out) to 
allow the proper total to te accumulated 
for the next salesman. 

Lines 12-14 provide for the total 
amount of each salesman to be printed and a 
double asterisk to denote it. The field 
TOTAL is also blanked after to allow for 
the proper accumulation for the next 
salesman. 
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Figure 96.1. Retrieving an Updated Table (Part 1 of 2) 
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SUBROUTINES 



An BPG program may use subroutines to avoid 
repetitious coding of ccmmcn or frequently 
used procedures these subroutines are of 
two types: 



1. 



External: written in the Assembler 
language. This type of subroutine must 
be assembled. and stored in the System 
Subroutine Library jrio'r to its use. 
This subroutine is 1^Tv^TreTTrcT™aTTTrf g 
program with the operation EXIT, and 
data references are made with the 
operation ELABL. 



2. 



Internal: written in the 
This type of subroutine i 
and executed as a part of 
gram. It is defined with 
tions BEGSE and ENDSE, an 
the operation EXSB. Sine 
tine is a part of the BPG 
field names defined in th 
are available to the subr 
vice-versa. 



EXTEBNAL SUBROUTINES 



EPG language. 
s generated 

the BPG pro- 

the opera- 
d invoked with 
e the subrou- 

progiram, all 
e main program 
outine and 



tine that performs a function not easily 
accomplished using BPG (such as a square- 
root computation). The subroutine, written 
in Assembler language, is coded by the 
user. Entries made on the Calculation spe- 
cifications form enable the programmer to: 

1. Exit from the EPG program to a 
subroutine. 

2. Execute the subroutine. 

3. Eeturn to the main program after the 
subroutine has been executed. 

The use of the EXIT operation and the 
understanding of this section requires 
thorough familiarity with the 1130 Assem- 
bler language. Information on this subject 
is contained in the SRL publication IBM 
11 2 0_ 1 ss em ble r_ I an^ua^e , Form C26-5927. 



The EXIT operation cede on the Calculation 
Specifications form causes BPG to transfer 
control from the RPG object program to a 
subroutine that has been coded in the As- 
sembler language. A subroutine might be a 
standard routine (such as a state with- 
holding tax routine) or it might be a rou- 
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EXIT_Iormat: The format of the EXIT opera- 
tion is shown in Figure 97. 
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Columns 7 through 17 are used cnly with 
conditional EXIT operations. The mnemonic 
EXIT must be entered in columns 28-31. The 
name of the subroutine to which control is 
to be transferred must be specified in 
columns. 33-38. The name of a subroutine is 
restricted to five characters. The first 
character must*Te*alphabetic; the other 
characters may be alphabetic or numeric. 
Special characters or embedded blanks must 
not be used. The subroutine must be pre- 
sent in the System Subroutine Library prior 
to execution of the EPG program. 

Position: The EXIT operation may be used 
anywhere in the Calculation Specifications. 
However, the user should be aware of the 
following considerations regarding four 
specific positions of the EXIT operation in 
the program: 

When the EXIT operation is the first 
detail calculation cf the program, con- 
tol will be transferred upon completion 
of the input routine, i.e., as soon as 
the pertinent input data are available 
for processing. 

When the EXIT operation is the last 
detail calculation cf the program, con- 
trol will be transferred to the desig- 
nated subroutine immediately before 
heading and detail records are printed 
or punched. 

When the EXIT operation is the first 
total calculation of the program, the 
exit to the subroutine will be made 
after the record type has been deter- 
mined and the control field has been 
tested. 

When the EXIT operation is the last 
total calculation, control will be 
transferred immediately before the 
totals are printed or punched. 

Field Definition: Any fields that are used 
in both the subroutine and the PPG program 
must be defined in the EPG program. This 
is achieved by RLABL statements. The use 
of the BLABL statement is described as 
follows. . 

1. If the field is net used as a result 
field elsewhere in the program, or if 
it has not been defined in the Input 
Specifications form, it must be defined 
on the Calculation Specifications form 
(Figure 98, item 1). 

The symbol RLABL must be placed in 
columns 28-32. The name of the field 
is placed in the Result Field (columns 
43-48) . The length of a field name 
used in an BLABL statement must not 
exceed 6 characters, and the first 
character must be alphabetic. Field 



4. 




Figure 98. Format of the RLABL Operation 

length (mmm) and number of decimal 
positions (n) are entered in the appro- 
priate columns. 

2. If an RPG field that is to be used in a 
subroutine has been defined in the 
Input Specifications form or in the 
result field of another Calculation 
Specification form the symbol RLABL 
must be placed in Operation and the 
name of the field in Result Field. 
Field Length and Decimal Positions 
should be left blank (Figure 98, item 
2). 

A field whose name has been defined by 
means of a TAG specification must not be 
used in a subroutine. Consequently, the 
name of such a field cannot be used in an 
RLABL specification. RLABL specifications 
must immediately follow the EXIT specifica- 
tion with which they are associated. 

Indicator_Definiticn. The user may want to 
test RPG indicators in a subroutine. In 
this case, each indicator required must be 
defined on the Calculation Specifications 
form (Figure 98, item 3) . 

The entry in columns 43-46 of the 
Result Field consists of the letters IN 
followed by the symbol for the indicator 
required. If, for example, the condition 
of the Matching Record indicator is to be 
tested in the subroutine, the entry in the 
Result Field portion of the appropriate 
RLABL statement is INMR. This entry indi- 
cates to the RPG program that MR will be 
tested in a subroutine. In the subroutine, 
the indicator may be referred to as the 
data located at INxx. 

Note: The hexadecimal representation 
of indicator conditions is 0001 for ON or 
0000 for OFF. 

If, in the subroutine, the user sets 
on, sets off, or tests resulting indica- 
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tors, he must observe the following rules 
when he codes his subroutine: 

1. To set on a resulting indicator, set 
the data located in INxx to hexadecimal 
0001. 

2. To set off a resulting indicator, set 
the data located at INxx to hexadecimal 
0000. 

3. To test resulting indicators: 

a* If on, the data at INxx will be 

hexadecimal 0001. 
b* If off, the data at INxx will be 

hexadecimal 0000. 

RLABL statements must be specified 
immediately following the EXIT statement 
which refers to the subroutine in which the 
desired fields are to be referenced. 

If the same routine must be exited to 
at various points within the RPG source 
statements, it is desirable to place the 
EXIT and RLABL statements in an RPG intern- 
al subroutine* 

The EXIT statement will cause an assem- 
bler CALL statement to be generated. Each 
RLABL statement will cause the compiler to 
generate the address of the referenced 
field or indicator. 

£2^isa_of_SubroutineSi All subroutines 
that are to be incorporated into RPG pro- 
grams by means of the EXIT operation must 
be coded in Assembler language. A subrou- 
tine that is to be linked by an RPG program 
may not contain input/output operations* 
The following points must be observed: 

1. RPG passes control to a subroutine via 
the assembler CALL statement. The Core 
Load Builder changes the CALL to a BSI 
indirect to the subroutines. Eefer to 
IB B 1 130 Assembler Languaqe, Form 
C26-5927. 

2. The CALL statement will place the 
address following the CALL statement in 
the first word at the subroutine entry 
point. This address will point to a 
list of RLABL referenced field 



addresses. The subroutine can 
reference the desired field by using 
the supplied address. 

3. The subroutine must return to the 
address following the CALL statement 
plus the number of RLABL statements. 
For example, if there are 3 RLABL sta- 
tements following an EXIT statement in 
the rpg program, the user's subroutine 
must return to the address formed by 
adding 3 to the contents of the first 
word of that subroutine. 

4. Index register 3 is used by the system 
to pass control to subroutines. If the 
subroutine uses this register, it must 
save and restore its contents. 

All subroutines to be incorporated in 
an RPG program should be coded on an IBM 
1130 Assembler coding form. The subroutine 
source deck must be assembled separately 
using 1130 Assembler. The resulting object 
program deck must be stored in the System 
Subroutine Library. 

Since the subroutines and the RPG pro- 
gram are to be combined, the subroutines 
must be relocatable and all Assembler link- 
ing conventions must be observed. 

Restrictions. The following restrictions 
must be observed when using subroutines 
written in Assembler language. 

1. Control cannot be transf erred from one 
subroutine to another. — "* " 

2. Subroutines shpuld^ji g t^co J ,t a J, BL J. flfiA t/ 
^iL u i operations. This may interfere 
withThe RPG routines. 

3. RPG data formats are described in Type;; 
2l_2ata_Records. t>§*&i\ 

Figure 99 illustrates the EXIT and 
RLABL operations. The RPG calculation spe- 
cifications show a EXIT to the subroutine 
PROC which will reference indicator 01 and 
field AFLD. The 1130 Assembler Coding form 
shows one method of referring to the speci- 
fied RPG indicator and field. 
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INTERN AL_SUBEOnTINES 

Subroutines may be coded in RPG. Such sub- 
routines are a part of the EPG program 
which invokes them, and control does not 
leave the RPG object program. The EPG 
(internal) subroutine is coded on the Cal- 
culation Specifications form using EXSE, 
BEGSR, and eNdsR operations. The format of 



an RPG subroutine is shown in Figure 100. 
An EPG subroutine is delimited by the BEGSR 
and ENDSR operations. The BEGSR statement 
defines the beginning of the subroutine and 
the entry point into the subroutine. The 
name entered into Factor 1 is the name of 
the subroutine, and is used to invoke this 
subroutine. 
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Figure 100* BPG Internal Subroutine 



The ENDSB statement defines the end of 
the subroutine and the pcint cf exit from 
the subroutine. At the completion cf the 
subroutine execution, program control 
leaves the subroutine and resumes with the 
calculation specification immediately fol- 
lowing the EXSR statement that invoked the 
subroutine. 



The ENDSR may have a name entered in 
Factor 1. This name may serve as the 
destination for a GOTO statement within the 
subroutine. A TAG statement is not needed 
when the GOTO operation is used with the 
ENDSB statement. 
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All statements of an RPG subroutine 
must have SH entered in columns 7-8 of the 
specification. These columns are otherwise 
used for control-level indicators. 
Control-level indicators may not be used to 
condition statements within an BPG subrou- 
tine. However, the EXSR statement that 
invokes the subroutine may be conditioned 
for total time. Thus, the entire subrou- 
tine will be executed under the conditions 
imposed on the EXSR statement. 

An EXSR statement is used to invoke an 
RPG subroutine. EXSR statements may appear 
in detail calculations, total calculations, 
or within another subroutine. (However, 
when an EXSR is a statement in a subrou- 
tine, it may not invoke the subroutine of 
which it is a part.) When the EXSR state- 
ment is executed, the control of the pro- 
gram goes to the subroutine named in Factor 
2 and that subroutine is executed* When 
the subroutine has been executed, ccntrol 
returns to the statement following the EXSR 
statement. 

Order_of_S£ecif ication 



HFG subroutines follow all detail and total 
calculations on the Calculation Specifica- 
tion sheet. 

0£3er_of_Execution 

Although the RPG subroutine specifications 
follow all other calculation specifica- 
tions, they are executed according to the 
order and placement of the EXSR statements 
that invoke them. The EXSR may be used 
anywhere in the calculation specifications. 
However, the user should be aware of the 
following, considerations regarding four 
specific positions of the EXIT operation in 
the operation: 

1. When the EXSR operation is the first 

detail calculation cf the program, con- 
tol will be transferred upon completion 
of the input routine, i.e., as soon as 
the pertinent input data are available 
for processing. 



2. When the EXSR operation is the last 
detail calculation cf the program, con- 
trol will be transferred to the desig- 
nated subroutine immediately before 
heading and detail records are printed 
or punched. 

3. When the EXSR operation is the first 
total calculation of the program: The 
exit to the subroutine will be made 
after the record type has been deter- 
mined and the control field has been 
tested. 



4. When the EXSR operation is the last 
total calculation, ccntrol will be 
transferred immediately before the 
totals are printed or punched. 

5. When the EXSR operation is contained 
within another subroutine, the subrou- 
tine named by the EXSR statement will 
be invoked when 

the subroutine containing the EXSR sta- 
tement is executed. 

Since the RPG subroutine is internal to 
RPG, any data field may be referenced in 
the subroutine. Fields may be accessed and 
changed just as with any calculation 
specifications. 

A GOTO operation may not be used to 
branch to the label of the BEGSR operation. 

If a TAG operation is located within a 
subroutine, the corresponding GOTO must be 
within the same subroutine. 

It is possible to have a GOTO statement 
within the subroutine branch to a TAG sta- 
tement outside of the subroutine. However, 
that TAG statement cannot be in another 
subroutine. 

Exam£le 

Figure 101 shows an updating routine using 
an RPG subroutine. This approach is typic- 
al of most "spread-card" type applications. 

Part 1 shows how the three files 
involved are described on the File Descrip- 
tion Specifications. 

Part 2 shows how the two input files 
are described on the input specifications. 
The fields ITEM1, ITEM2, ITEM3 are define^ 
for part numbers, and the fields QTY1, 
QTY2, QTY3 are defined for the quantity of 
parts for The primary file CARD. the 
inventory file (INVFIL) key and balance 
fields are also defined. 

Part 3 shows the Calculation Specifica- 
tions necessary to use the subroutine. 

Lines 010-030 The fields ITEM and QTY are 
defined and the first item 
information moved into these 
fields. The subroutine UPD- 
ATE is invoked. 

Lines 040-090 Information for the second 
and third items is used to 
invoke the subroutine UPDATE. 

Line 110 The beginning of the subrou- 
tine UPDATE is identified by 
the operation BEGSR. 



Subroutines 1*1 



Line 120 



Line 130 



Line 140 



The CHAIN operation is used 
with field ITEM and the file 
INVFIL to access the inven- 
tory file record for this 
item. (See Chaining fcr more 
information about the techni- 
que of chaining.) Indicator 
20 will be turned on if the 
appropriate record cannot be 
found. 



Line 150 
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When indicator 20 is not on 
(N20) , the inventory file re- 
cord is updated by the field 
QTY. 



Line 160 



The operation 
any exception 
on the Output 
cations sheet 
at this time, 
records are id 
entry of E in 
this example, 
duced is the i 
containing the 
tity. This re 
back into the 
completing the 



EXCPT causes 
records defined 
Format Specifi- 
to be produced 

(Exception 
entified by an 
column 15.) In 
the record pro- 
nventory record 

updated quan- 
cord is written 
file INVFIL, 

update. 



The ENDSE defines the end of 
the subroutine and causes 
program control to return to 
the statement immediately 
following the EXSB statement 
that invoked the subroutine. 



Part 4 shows the output specification 
coding necessary for putting out the excep- 
tion records as explained previously. 
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Figure 101. RPG Subroutine (Part 1) 
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PROGRAM DOCUMENTATION 



RPG provides a relatively easy method of 
documentation since it has a fixed entry 
format and all programs use the same 
generalized logic flow. To assist the pro- 
grammer, the following discussion concerns 
ways of providing additional documentation 
that will assist in program writing, pro- 
gram testing, and program maintenance. 

1. Comment cards at the beginning of a 
program allow the programmer to describe 
the functions of his program and any other 
important items. An example of this is 
found in Figure 101.1. 

2. Comment cards can easily be written on 
any specification sheet to denote the 
beginning of major sections. An example of 
this is shown in Figure 101.2. 



3. Comments can also be written in the 
comment section of the Extension and Calcu- 
lation Specifications. See Figure 101.3 
and 101. t. 

4. A special RPG documentation form is 
available to allow the programmer to keep 
track of the indicators he has used and to 
supply a description of their purpose in 
his program. This is a convenient aid dur- 
ing the writing of a program and a good 
means of providing documentation. The form 
is designed to be keypunched and the cards 
are normally placed after the File Descrip- 
tion entries. A sample is shown in Figures 
101.5 and 101.6- 
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1IPES_0F_DATA RECORDS 



The HPG object program handles records that 
are fixed-length only (i.e., all the reco- 
rds of a file have the same length.) ♦ nne 
iSISiSl- 1 record is contained in one physical 
record 4 — — -— i—.^.. 



U N BLO C K ED_ H E CO B D S 

All logical records of a file have the same 
length. 

The length of a logical record is 
entered in Record Length en the File 
Description Specifications form* 



JIOCKING_EECOEDS 

RPG automatically blocks all disk files for 
maximum space utilizaticn* Figure 102 
shows the number of cylinders that are used 
to contain 1000 records of various sizes. 

A disk pack consists of fixed-length 
sectors with a capacity of 640 characters 
each. A data record must be contained in 
one sector. However, a sector may be cap- 
able of containing more than one record. 
The process of grouping records on a sector 
is called blocking. 

The blocking of disk records saves disk 
operations and increases the processing 
speed of the object program. When records 
are grouped in blocks of one sector, an 
unused area may occur at the end of the 
sector. 

Figure 102 shows the utilization of 
disk space achieved with various blocking 
factors. 
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Figure 102. Space Utilization for Various 

Size Records 
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SIGN CONTROL 



1130 RPG does not change the sign of any 
fields defined as numeric in the following 
situations: 

• Removed from an Input Record 

• Moved by a MOVE cr MOVEI operation 

• Moved by a Move Zone operation (the 

sign of the result field will be 
the same as the sign of Factor 2) 

• Used as a Chaining Field 

The result field of- any arithmetic 
operation (ADD, SUB, Z-ADD, Z-SUB, MULT, 
DIV, MVR) will always produce either the 
positive sign (F) or the negative sign (D) , 

If two numeric fields are compared ana 
the digit portions are equal, the following 
will occur: 

1. If the signs are identical, the compare 
will be equal. 



2. If one sign is a D (negative) and the 
other is net a D (positive) , the com- 
pare will be unequal. 

3. If the two signs involved are not D's 
and are not the same (e.g., F and C) 
the compare will be equal. 

Areas 

An F sign will be forced on all numeric 
fields regardless of what the sign was pre- 
viously. In addition, all high order zones 
will be stripped. 

Editing 

Edit codes a n d edit words will treat all D 
signs as negative. All other signs will be 
considered positive. 
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DISK STOEAGE CONCEPTS 



TERMINOLOGY 

The distinction between the terms file 
°^35^ization and f ile_j:rocessinc[ is very 
important. 

File Organization is the method afar- 
ranging data records on a direct access 
storage device. A file is organized during 
the development stages of the application. 

File processing is the method of retri- 
eving data records from the file. 

To achieve the most efficient use of 
the 1130 components, carefully consider the 
relationship between hew a file is 
organized and how records are retrieved 
from it* This is particularly important 
when designating data files for storage in 
a direct access storage device* 

The method of organization best suited 
to a particular file of disk records 
depends upon many factors. These factors 
must be analyzed for each file in each par- 
ticular application. More than one method 
of processing the same file can be used. 
For example, records within a file might be 
processed at random during an updating run, 
and sequentially during a billing run* 



FILE ORGANIZATION 

The two types of file organization used by 
1130 BPG are sequential, and indexed 
sea,ueutial. 

Seauential_File_Or conization 
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It is also possible to process a 
sequential file randomly. This can be done 
by specifying the relative record number of 
the record in the file. 



IIlJexed-Sea.uential_Orc|anizaticn 

In this type of file organization, the 
records are also stored sequentially in the. 
file. But this type of file organization 
differs from sequential organization* 
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For example, this might be a catalog 
number (address) of 426.25. You would then 
go to the book shelves, and (if it was your 
first time in the library) start at the 
first row of the book files and proceed 
through the rows until you have found the 
shelf that contains 426-25. Usually, each 
row contains a sign to indicate the begin- 
ning and ending numbers of all books in 
that particular row. Thus, as you proceed 
through the rows, you would compare 426.25 
with the numbers posted on each row. 
Assume that one row was labeled 300.88-550. 
00. You would then search that row for the 
shelf that contained the book. 

The RPG program uses an index table in 
much the same way to locate records 
organized in an indexed sequential file. 

The size of a record in an indexed 
sequential file can be any number from 1 to 
636 characters. Each record in the file 
has a field called a key. This key is the 
field which the file is organized by. In 
the library example, each book has a cata- 
log number which is its key. The size of a 
key in an indexed sequential file can be 
any number from 1 to 50 characters. 



FILE PROCESSING 

There are four methods of file processing: 

1. Sequential processing of sequentially 
organized files. 

2. Random processing of sequentially 
organized files. 

3* Sequential processing of indexed 
sequentially organized files. 
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4. Bandom processing of files organized 
indexed- sequentially. 

S equential processing (Se^uential_Filesl 

In sequential processing of a seguentially 
organized file, every record in the file is 
examined, and each successive record in the 
physical file is processed in order. For 
example, in a card file, the card records 
are processed in the order that the cards 
are fed into the system* The 14th card in 
the file cannot be processed until after 
the 13th card has been processed. 

Eandom_Processinq_JSeauential_FilesX 
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This type of processing can also be 
compared to directing someone to a house 
location. "The Martin family lives on Har- 
rison Street" (a file name) "and their 
house is the 32nd house from the beginning 
of the street." (The 32nd is the record 
number*) 

Sequential Processing JIndexed_Sequential 

Files). 

Sequential processing of an indexed- 
sequentially organized file is similar to 
sequential processing of a seguentially 
organized file (i. e. , an entire file is 
processed). In the example of the library* 
the first visit represents a sequential 
processing on an indexed-sequentially 
organized file. 
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Random Processing (Indexed Sequential 

FilesJ_ 

In random processing, the sequence of pro- 
cessing has no relationship tc the sequence 
in which the data is stored in the file* 
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This type of processing is analogous to 
directing someone to a house location. 
"The Martin family lives on Harrison 
Street" (A cylinder address) "and then 
walking down the street looking for 'Bar- 
tin" on a mailbox". 



CREATI_NG_AND PROCESSING gECUENTI AL_DISK 

A sequential disk file must be contained 
within one disk area. This area is defined 
prior to the creation of the file which 
occupies it. (Refer to IBM 1130 Disk Mon- 
itor System, Version 2, Programming and 
Operating Guide for a discussion of the DUP 
function used to reserve an area on disk.) 

The RPG program loads the records, one 
after another , beginning at the start 
address of the file and continues loading 
on successive tracks (and cylinders) until 
the end address is reached. 
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To extend a sequential file or add 
records, the entire file must be reloaded. 

If a .sequential, disk, file is processed 
s£SJi£iiila lly , it can be updated jaaXy at 
detail time during the processjji.g of this 
Tecord. '"" At any other processing time, 
updating would be performed on another re- 
cord. If a seguential disk file is pro- 
cessed randomly, it can be updated at ei- 
ther detail or total time. "—*-»-* 
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Figure 103. File Definitions 



A sequential disk file may be processed 
randomly by using relative record numbers 
but must be created through the use of a 
sequential output file. 

Figure 103 shows the coding on the File 
Description Specifications fcrm required to 
process records of sequential input, update 
and output disk files. 
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INDEXED_SE20ENTIAL_ACCESS_UETflOD_JISAMl 



An indexed sequential file is alwaysse- 
guenced according to a key field* It must 
be in ascending sequence. 

Every indexed sequential file contains 
an index table associated with the file 
which has one key for every cylinder of the 
file and the address of the cylinder. This 
index acts as a form of brackets so that 
any key may be isolated to begin on a par- 



ticular cylinder. Thus, the records may be 
retrieved from the file sequentially or in 
random sequence 
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Data Record 



Key 

75 



Example of a data record in the prime data area. 




Sequence-link Control Field 



Key 
510 



Data Record 



4- 



Zeros | 1 Bits 



Sequence-link Control Field 
Example of the last data record on a prime data cylinder that has overflow records. 

Figure 104. Data Format 



Master Index 

When the ISAM load routine loads a file of 
records an index for the file is created. 
This index is utilized for the random or 
sequential reference to records as follows: 

1. Key from the last record on each prime 
data cylinder. 

2. Sector address from the beginning of a 
cylinder. 

3. Key - the same as item 1 except when 
overflow records exist for that cylind- 
er, in which case it will be the key 
that was originally the key of the last 
record on that cylinder. 

4. Sector address - same as item 2 except 
when overflow records exist, in which 



case it will be the overflow sector 
address of the last record forced off 
the cylinder. 
5. Record number - zeros except when over- 
flow records exist, in which case it 
will contain the record location on the 
overflow sector of the last record for- 
ced off the cylinder. 

The entries are blocked if possible, 
(i.e., one disk sector contains more than 
one entry) . The exact number of entries 
per sector and the number of entries 
required for the index depend on the users 
key length; the sector addresses and the 
record number require three words (Figure 
105) . 
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Figure 104-1 Typical ISAM definitions 
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Figure 105. ISAM Master Index Format 
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After a file has been organized on disk, it 
may subseguently become necessary to add 
records to the file* Ihe records to be 
added may contain: 

1. Keys that are above the highest key pre- 
sently in the file. 

2. Keys that are lower than the lowest key 
presently in the file. 

3. Keys that fall between keys that are 
already in the file. 

When new records are to he added, an 
overflow area is reguired. The ISAM uses 
the overflow area to permit the insertion 
of records without necessitating a complete 
reorganization of the established file. 



er cylinder is determined, one of the fol- 
lowing routines is performed. 
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If the new record has a key that is 
higher than the users highest key in the 
file, the record is inserted before the 
end of file record. If the last prime 
data sector is not full, the record is 
placed in the prime data area, otherwise 
it is added the same as in routine 1 or 
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Data Record 



Key 
i 515 I 



OV (Record 
Sec. I Number 



Data record in the overflow area with the control field pointing to 
next sequential record. 



Sequence-link Control Field 



I Key 
I 530 



Data Record 



Zero|Zero{ 



Data record in the overflow area with the control field zeros which 
means it is the last record in the chain. 



Figure 106. Overflow area 



Sequence- link Control Field 



2 above (the dummy end of file record 
key of all 1 bits is the highest key 
possible) . The overflow area is auto- 
matically allocated immediately follow- 
ing the prime data area after the ini- 
tial load of the file if space is avail- 
able within the limits of the file area 
(ses Figures 107 and 108 for a schematic 
example of the cylinder) . 

Note 1 : The above description of adding is 
logically correct, but the technique is to 
work backwards so that the record to be 
added is written last. This avoids the 
loss of records due tc hardware 
malfunction. 

Note 2: 1130 BPG does not permit the 
extents of an organized file tc be changed. 
Therefore, if the available overflew areas 
are full and records are still to be added, 
the file must be completely reorganized. 

Ifiiiatin^_File_Size_Cajacit^ 



AS a technique of good systems design, it 
is desirable to guickly estimate possible 
file sizes for the three methods of file 
organization. Since 1130 EPG automatically 
blocks records and the block size cannot 
exceed 640 (636 for ISAM) , there are cer- 
tain optimal record sizes. 
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If on the ether hand, the record size 
cannot be reduced to 120 characters* the 
user should consider expanding the record 
size to 200 characters since the same 
amount of file space will be required. 
This may allow additional information to be 
stored on the record which may reduce the 
total number of operations in the system 
design or improve the capability of the 
system. 

Because of the potential savings, the 
system designer should be familiar with 
Figure 102. This chart shows the number of 
cylinders required per 1000 data records. 

The user first calculates his record 
size in characters. Then looks down the 
record size column for the number which is 
equal or the next higher value. By looking 
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across, the number of cylinders required 
for 1000 records for either Sequential or 
ISAM can be determined. A simple multipli- 
cation will then produce the estimated file 
capacity required. 

In our previous example, a 125 charact- 
er record would be the same as a 200 
character record. (It is larger than 120). 
looking across under the ISAH column, 41.7 
cylinders are required. Since this is for 
1000 records 41.7 x 3 = 125.1 or 126 cylin- 
ders are required for the prime data area. 

An indexed sequential file requires a 
cylinder index. This chart is also shown 
in Figure 102* Lock dcwn the key length 
column to the number equal to or larger 
than the key field of the file. (Key 
fields cannot be packed) . Then look across 
to determine the number of cylinder entries 
that can be made on one sector. 

If a key field length of 7 is required, 
16 cylinder entries can be held per sector. 
Since the prime data area will require 126 
cylinders, then eight (125 divided by 16) 
sectors will be required for the cylinder 
index* Since there are eight sectors in a 
cylinder, one cylinder is required for the 
cylinder index. 

Most ISAM files require an extra area 
for overflow records. This will vary per 
application, but a typical figure may be 
10%. If the prime data area requires 125 
cylinders, the overflow area will be 13 
cylinders. 

The total file is then contained in: 
126 cylinders fcr prime data 
13 cylinders for overflow area 
1 cylinder for index 

140 Cylinders 

The 1130 System reguires that a file 
space he reserved for the file. This num- 
ber must be expressed in terms of sectors 
required. Therefore a reserved area of 
1120 sectors (140x8) is required for this 
file. 

Sect or s_Ee3uired_for_an_ I ndexed_ Sequential 
File 



RPG will automatically calculate the 
number of sectors reguired for the file for 
each program that will load an ISAM file. 
This feature will assist in determining the 
file capacity required. 

The user must specify the total number 
of records he wishes to have in an ISAM 
file and enter this on the File Description 
Specifications. This number should pro- 
vide for a typical overflow area. 
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3. If 350 sectors are specified the 
user can obviously not load 2000 
records. (The actual number would 
be 1730 records as determined by 
using Figure 102.) However, 1500 
records could be loaded and the 
remaining area could be used for 
additions. (As in example 1, a 
small amount of area would be lost 
due to the requirements for a larger 
index) . 

Indexed Sequenti al P rocessing 

Indexed Sequential Access Method (ISAM) 
permits the user to process disk records in 
either random or sequential order, using 
certain control (key) information. 

S§3uential_ Process in<j : The entire file is 
processed sequentially by record key in 
ascending sequence. Sequential processing 
can be performed on an entire file, start- 
ing with the first record or upon limits of 
the file. 
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Creatin2_an_SA_File_f or_Lijits 

1. Only two record address entries specify- 
ing the lower and upper limit of one 
area can be in each record of the RA 
file* 

2. The record address entry must begin in 
position 1 on the record. The first 
entry indicates the low limit of the 
file to be processed* The second entry 
indicates the upper limit of the file. 
The program will process from the lower 
limit through the upper limit. 

3. The second entry of the record must 
begin in the position immediately fol- 
lowing the first entry* No blank spaces 
are allowed. 

Ran dgm_ Processing 

The file can be processed randomly by one 
of three methods: 

1. CHAIN operation on the calculation spe- 
cifications* (Preferred method.) 

2. Chaining by using C1-C3. (Alternate 
method.) 

3. Chaining using an RA file. (This method 
is seldom used. ) 

For random processing the user supplies 
the control (key) information be wants and 
the ISAM random routine retrieves the spe- 
cified record. 

File_Descri_pticn_Sj3ecif ication_Examr_le_s 

Figure 108.1 shows examples of typical 
entries for an ISAM file. All of the 
entries (except line 030 which is an RA 
file) have several columns of identical 
coding. 



Column 19 must contain an F for fixed- 
length records. Column 31 must contain a K 
for retrieval by key field. Column 32 must 
contain an I to denote an indexed sequen- 
tial file. Column 40-46 must contain the 
name DISK as the device name. 
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File Information 



The first sector of the file will contain 
the necessary file information to control 
the file. 

Index in Core 

In order to decrease the amount of seek and 
read/write time involved in ISAM proces- 
sing, all of the ISAM routines will hold 
one sector of indexes in core for each 
file. Because of this technique it may be 
much faster to sort input data befor doing 
a random update. 
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Summar^_o^Indexed_Se^uential_Orc[ai!iz§tion 

1. An ISAM file must be loaded in the 
ascending sequence of the key field. 

2. once loaded, records can be added to 
the file, but the size of the prime 
data area is fixed by the number of 
records actually loaded* (Bather 
than the number specified) . 

3. If a large number of records are 
added, the throughput performance in 
retrieving will be degraded due to 
the number of searches in the over- 
flow area. 



for, there is no facility for 
expanding the number cf sectors 
available and continuing to add 
records. The file must be copied 
sequentially and then reloaded into 
a larger area. Once this is accomp- 
lished, new records may be added. 

If a record should be deleted, it is 
up to the user's program to accomp- 
lish this through record codes. 
When the file is reorganized, the 
user can drop the deletions by means 
of a record code. Deletions remain 
on the disk until the file is 
reorganized. 



4. If the user attempts to add more 
records than he has alloted sectors 



Innermost Cylinder 
Upper Surface Track 
Lower Surface Track 



Outermost! Cylinder 
Upper Surface Track 
Lower Surface Track 



One cylinder is the top and 
the bottom side of the disk at 
one point (two tracks per cylinder) 



203 Two- Track- 
Cylinders 




NOTE: The thickness of the disk has been greatly 
exaggerated in order to show the relative 
positions of the upper and lower surface tracks. 

Figure 107. 1130 Disk Cartridge 
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Sectors 0-3 

(Upper Disk Surface) 



Sectors 4-7 

(Lower Disk Surface) 




Each track Is divided into 4 sectors 
(640 characters/sector) , 

I cylinder=2 tracks=8 sectors=5l20 
characters. 



Figure 108. 1130 Disk Storage Sector Dumber 



6. An ISAM file can only te retrieved 
randomly by specifying the arpropri- 
ate key as a chaining field. 

7. only one of the following functions 
can be used per ISAH file per pro- 
gram: LOAD, ADD, retrieve sequen- 
tially (with or without updating) , 
retrieve randomly (with or without 
updating) , or retrieve sequentially 
within limits (with or without 
updating) . 

8. The last sector used from the 
cylinder index remains in core for 



any ISAM function. This can have a 
dramatic effect on system perfor- 
mance, especially when dealing with 
sorted transactions and random 
updating* 

9. Prior to loading the file, an area 
on the disk containing the number of 
sectors for the file and overflow 
area must be reserved by a DOP run. 
This area should be given the same 
filename as that used for the file 
in the File Description 
Specifications. 
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PEOCESSING_MnLTIPLJ_INPOT_FILES 
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Once the file organization of all input 
files has been determined, the processing 
method can be selected. Figure 109 sum- 
marizes the possible choices. 



File Organization 



All Card Files 
(Sequential) 



Sequential 
Disk File 



Indexed- Sequential 
Disk Only 



Possible 
Mode_of_ Processing 



Sequentially 



1. Sequentially 

(Entire 
File Only) 

2. Randomly 

(Retrieval by 
Relative Record 
Number) 



Sequentially 

a. Entire File 

b. Limits of the 
File (Using 
an RA File to 
prescribe the 
limits) 

Randomly 

(Using the 
chaining 
technique 
chaining 
field) 
a. Chain 
Operation on 
the Calc- 
ulation Spec- 
ifications 
b* Chaining by 
the alternate 
method of 
C1-C3 

c. using an RA 
File to sup- 
ply the 
chaining 
fields. 



Figure 109. Comparison File Organization 
and Mode of Processing 



Sequential Organization: All card files 
are sequentially organized. Disk files may 
also be sequentially organized. Such files 
require that every record be processed in 
sequence. When more than one sequentially 
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organized file is used for input, there are 
two techniques of processing available: 

1. The records of the input files may be 
related in some way, so that processing 
alternates between the files. The 
records of the primary and secondary 
files are "matched" by special fields 
in these records. This type of proces- 
sing is called Matching Records, and is 
discussed below. 

2. The records of the input file may be 
processed independently. All records 
from the primary file will be processed 
first, and then each entire secondary 
file will be processed in the crder in 
which it was specified on the File 
Description sheet. 

Indexed_Sec[uential_Oraanizatic_n: Only disk 
files may be organized as indexedseguen- 
tial. While such files are arranged 
sequentially, each record contains a key 
which is indexed* This allows either 
seguential or random processing of the 
file,, depending on the needs of the job: 

1. The file may be sequentially processed, 
either the entire file, or between some 
limits (see RA_Z_2__) . Matching Record 
technigues may be used. 

2. The file may be processed randomly, by 
accessing records through their keys. 
These keys are specified by another 
file through a process call Chaining 
(see Chaining) . 

3* A sequential disk file can be processed 
randomly by use of the CHAIN operation 
on the calculation specifications and 
using a relative record number within 
the file. The user must know that he 
wishes to process a certain record 
(e.g*, 31st record)* 
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mary file. There must be one and only one 
primary file. It is specified by entering 
P in column 16 of the File Description spe- 
cification for that file. Other input 
files are all designated secondary files, 
and are specified by entering S in column 
16 of their File Description 
specifications. 

The primary file is generally the con- 
trolling file in a program. In the case of 
processing by matching records, the primary 
file is processed first when records match. 
In the case of chaining, the primary file 
is the chaining file, and hence controls or 
determines what data is extracted from the 
chained file for processing. 



MATCHING_5EC0EDS 

The technique of controlling processing by 
matching records is used only when proces- 
sing two or more files seguentiall^. 
Examples of matching records: 

• A card file and a sequentially-organized 
disk file (being processed sequentially) . 

• Three seguentially-organized disk files. 

• A card file and an indexed sequentially 

organized disk file being processed 
sequentially. 

RPG processes only one record at a 
time; Matching record techniques determine 
which file supplies the next record to 
process. 

Maic.h_.fi el ds : Matching fields are speci- 
fied by entering one of the codes M1 
through M9 in columns 61-62 of the Input 
Specification for the field. (See Matching 
Fields_or_Chaining_Fields under Input Spe- 
cifications Form.) 

Figure 110 illustrates the specifica- 
tion of matching fields. In this example, 
there are two input files, MASTER contain- 
ing certain rate information, and DETIABOR, 
containing detail records. MASTER is desi- 
gnated as the primary file. Field DEPT 
from file MASTER is to be compared with 
field DETDEP from file DETLABOR (M1) , and 
field DIVSOn from file MASTER is to be com- 
pared with field DETDIV from file DETLABOR 
(M2) . Whenever these fields match, the MR 
indicator will be turned on* 



PRIMARY AND SECONDARY FILES 

When sequentially processing multiple input 
files, one file must be designated the pri- 
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Matching fields determine the manner in 
which records are matched. Matching reco- 
rds determines which input file supplies 
the next record for processing. The pro- 
gram begins by reading cue record frcm each 
input file* The match fields are compared, 
and one record is selected for processing. 
The program then selects succeeding records 
by: 

1. Reading the next record from the file 
which the record just processed came 
from. 



2. Comparing the new record with the re- 
cord previously read but not selected 
for processing. One is selected for 
processing, based on the comparison. 

Selection of the next record to process 
follows these rules: 

1. The record with the lowest value in its 
match fields is processed first (assum- 
ing ascending order. If descending 
order is used, the highest record is 
selected) . 
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2. If the primary record matches cne or 
more secondary records, the primary re- 
cord is processed before the secondary 
records which match it. 

3, If two or more secondary records natch, 
they are processed in the order they 
are specified on the File Description 
Specifications. 

U. Records which have no match fields are 
processed before records which have 
match fields. 

5. If two or mere records are without 

match fields, they are processed pri- 
mary file first, followed by secondary 



fields in the crder specified on the 
File Description Specifications. 

Note: If the primary file has an E entered 



in column 17 of the File Description form 
(End-of-File) and the secondary files do 
not, any matched secondaries will be pro- 
cessed before the LE indicator is turned 
on. 

Figures 111 and 112 illustrate how 
records are selected for processing. Three 
files are shown in this example, and Figure 
111 shows the files as they appear and the 
sequence in which they are processed. 
Figure 112 shows the selection process 
step-by-step for the first ten records. 
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Match field 




Match field- 




Match field - 




Primary File (P) 



1st Secondary File (S) 



2nd Secondary File (T) 



The records in the three files 
shown are processed in this 
order. (A blank match field 
means the record has no 
match field.) 




Figure 111. Record selection (Three Files) 
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STEP 





First record from each file is read. Be- 
cause the P and S records have no match 
field, they will ¥e processed before the 
T record. Because the P record comes 
Trom the primary file, it is selected for 
processing first. 



STEP 





The next P record is read. Because it 
contains no match field and comes from 
the primary file, the new P record is 
also selected before the S record. 



STEP 
3 /? 20 




The next P record is read. Because the 
S record has no match field, it is selected 
Tor processing. 



STEP 
4 /P 20 




The next S record is read. Because the 
value in tne match field of the T record 
is lower than the value in the other two, 
the T record is selected for processing. 



STEP 





The next T record read. Because the 
P and S records both have the lowest 
matchTield value, they will be processed 
before the T record . Because the P record 
comes from the primary file, it is selected 
for processing first. 




/S 20 



/T 30 



The next P record is read. Because it 
contains tne same match field and comes 
from the primary file, the new P record 
is selected instead of the S record. 



STEP 

7 /p 40 





/l 30 



The next P record is read . Because the 
value of the match field in the S record 
is lowest, the S record is selected for 
processing. 



STEP 
8 /> 40 



S 30 




/T 30 



The next S record is read. Because the S 
and T records both have the lowest match 
fiel<Tvalues, they will be selected before 
the P record. Because the S record comes 
from the first secondary file, it is selected 
for processing first. 




The next S record is read. Because it also 
has the same match field as the S record 
just selected, it too is selected Eefore the 
T record.. 



STEP 
10 /? 40 



S 60 



T 30 



The next S record is read. Because the T 
record contains the lowest match-field 
value, it is selected for processing. 



Figure 112. Eecord Selection (Three Files) 
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3. 



Maichina_Eecgrd_Eulesi 

1* All files using matching fields must 

use the same matching fields. That is, 
if one file used matching fields Ml and 
M2, then M1 and M2 must be defined in 
all files using matching fields, and 
only M1 and M2. 

2. All matching fields of the same level 
must be defined tc te of the same 
length and type. That is, M1 of the 
primary file must have the same length 
and type as Ml of all secondary files, 
etc. 

The order of processing when net under 
matching record control is primary file 
first, followed by the seccndaiy files 
in the order they are specified on the 
File Description Specifications form* 

If a seguentially-prccessed input file 
is defined without matching fields, the 
entire file will be processed in order 
of priority as described in point 3. 

If record types without matching fields 
defined are interspersed in files con- 
taining records with matching fields, 
the records without matching fields are 
processed as they are encountered, and 
according to the priority described in 
point 3. 

The matching record indicator (HE) is 
set ON only when the record from the 
primary file matches one or more of the 
records from the secondary files. It 
is not set on when secondary file reco- 
rds match without matching the primary 
file record* 



4. 



5. 



from the primary file. The comparison is 
made on all fields (M1-M9) at the same 
time* If the M1 fields match, but the M2 
fields do not, the ME indicator will be 
turned off. The MB indicator is turned on 
before the first record of the matched pri- 
maryfile is processed. The MR indicator 
remains on during the processing of all 
following primary and secondary file reco- 
rds that contain the same matching field. 

The ME indicator is turned off when all 
total calculations and output are completed 
for the last record of the matching group. 

Figure 113 illustrates when the MB 
indicator is turned on and off. This 
example shows a simple block diagram of the 
object program logic to illustrate logic 
flow. Two input files are used, and the 
record selected for processing in each pro- 
gram cycle is shown. The status of indica- 
tors is shown by vertical bars along the 
right side of each step of the figure. A 
solid bar is used to denote the indicator 
ON, and a dotted line indicates OFF. Three 
indicators, one for each file, are used to 
show which file is being processed. 



7. The matching record indicator is turned 
off after the last record of a matched 
group has been processed, including 
total calculations and output for that 
group. This matched group includes all 
primary and secondary field records 
which have identical match-field 
contents* 

£atchin2_Becord_lndicator_jMEl 



The matching field entries of M1-M9 have an 
associated internal indicator ME (Matching 
Record). This indicator, which is similar 
to a resulting indicator, is used to condi- 
tion functions specified on the Calculation 
and Output-Format Specifications forms* 

The BE indicator is turned on when the 
matching field of a record from a secondary 
file matches the matching field of a record 
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Figure 113. MB Indicator Setting (Fart 1) 
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Matching Fields and Control F iel ds 

The matching record technique has no direct 
relationship with control level specifica- 
tion. These are independent functions in 
EPG. However, it is freguently desired to 
specify both match fields and control 
fields within the same record types. 

The EPG object program uses the match- 
ing field specifications tc determine the 
crder of processing records when using the 
same field as a control field and a match 
field during processing of multiple input 
files. If it is desired to punch a total 
or summary card after each set cf control 
groups has been processed (control break) , 



it is required to specify the same control 
field for both the primary and secondary 
file. 

If the same control fields are speci- 
fied in both files, these files are pro- 
cessed in the same manner as a single file 
program. A control break occurs only once 
for each control group (either in the pri- 
mary or the secondary file) . 

Exit_to_a_Translate_Subroutine 

If the sequence of the matching fields is 
not EBCDIC collating sequence, the EPG pro- 
gram can provide an automatic exit to an 
external user subroutine that translates 
the sequence of the matching fields to the 
collating sequence desired. 

An entry in the EPG Control Card is all 
that is required to cause the EPG program 
to branch to the subroutine. The automatic 
branch occurs after the input card is read 
in and before the EPG program checks the 
sequence of the matching field. 

The subroutine to translate the match- 
ing fields must use the predefined label 
ALTSE. The address of the hold area con- 
taining the matching fields to be trans- 
lated will be contained in index register 
1. This address will be the control word 
of the field* If index registers 2 and 3 
are used in the subroutine, they must be 
saved and restored. The subroutine must 
place the translated fields back into the 
matching-f ield holding area before it 
returns control to EPG. 

The original data fields (to be used 
for controlling, printing, arithmetic cal- 
culations, etc.) are not translated by the 
subroutine. 

Examples 

Figure 114 illustrates the order of proces- 
sing for a primary and a secondary file. 
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Figure 114. Order of Frocessing Hatched 
Records 



Indicator 01 is turned on whenever 
there is a primary record* Indicator 02 is 
turned on whenever there is a secondary re- 
cord. Thus, 

1. A matching primary record will be coded 
01 and MR. 

2. A matching secondary record will be 
coded 02 and MR. 

3. An unmatched primary record will be 
coded 01 and NMR. 

4. An unmatched secondary record will be 
coded 02 and NMR. 

The processing order for Figure 114 is 
as follows: 



Assume that the same f 
matching field and a contr 
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case a control break occur 
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processing of the 2nd, 5th 
records. 
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the detail time 
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2iiifia_Matchina_Record_Techni3ues_Without 
^§tchin3_Fields 

If in a multifile program, records that are 
specified without matching fields are 
interspersed with records that are speci- 
fied with matching fields, the following 
occurs: 

1. Any records without matching fields are 
processed as they are encountered. At 
the beginning of processing, the object 
program processed only initial records 
without matching fields specified, 



until the first record within each file 
with matching fields is encountered. 
The processing seguence is primary 
first, followed by secondary files in 
the order they are specified on the 
File Description Specifications. If 
there is a file with no records for 
which matching fields are specified, 
the entire file will be processed 
before any records of the subseguent 
file (s) are processed. 

2. During the processing of the record for 
which no matching fields are specified, 
the MR is turned off regardless of what 
its previous setting was. 

If only one file contains records with 
matching fields, this specification is used 
for seguence checking only. All primary 
and secondary files are processed in the 
order they are specified on the File 
Description Specifications form. 

No±£i It is invalid to have two sequen- 
tially processed files and only one which 
has matching fields specified. If two 
files have matching records specified, a 
third file can have no matching records. 



CHAINING 

Three methods of chaining exist. The CHAIN 
operation on the Calculation Specifications 
form, however, offers the most flexibility. 
For this reason, it will be stressed and 
the other methods will be discussed late'r. 

Two or more input files are always 
involved in chaining. One file normally 
contains a field which can be used to point 
to the particular record in the chained 
file. The field which is being used to 
point to the chained file is called a 
chaining field* 
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While this type of processing is the 
classical example of chaining, there are 
many variations which can be used depending 
upon the application and other criteria. 

For those users who are not familiar 
with chaining, the next section discusses 
the most typical applicaion, that of chain- 
ing to an index sequential fileis fully 
understood, variations and other techniques 
will be observed. 

The example of the library used in Disk 
§£°.E§3 e ._£°.i2 c .e.Ets illustrates the concept of 
chaining! To find a particular book, the 
card catalog is searched (processed) for a 
record of the desired book. The card cata- 
log record points (chains) to the shelf 
location of the book by use of a catalog 
number (key) . 

With indexedsequential organization, 
every record of a file has a key. These 
keys are indexed in the file's Master 



Index. Thus any record can be accessed 
through its key. Chaining is the use of 
these keys to link from a chaining field to 
the record of another which has that key. 
Chaining is done either by use of the CHAIN 
operation in Calculation Specifications or 
the alternate method of chaining codes 
(C1-C3) on the Calculation Specifications. 
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The field which links or chains a re- 
cord of one file to a record in another 
file is called a chaining field. The mas- 
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ter customer file is the chained file 
because it is being linked from the tran- 
saction file. 

Figure 116 illustrates the coding 
required for a typical chaining operation. 
In this case, a card file CAFDIN contains 
transactions which are to be updated 
against an indexed sequential file called 
MASTCUST* 

The File Description Specification Form 
shows the entries required for the file 
CAEDIN. It is an input file and is also 
the primary file for this job. No entry is 
required to denote that a field in this 
will be used as a chaining field. 
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The input Specification Form describes 
the transaction record in CAEDIN. In this 
case it has only two fields. CUST will be 
used as the chaining field and AMTPB will 
be used to update the appropriate customer 
record. 

The MASTCUST file has two types of 
records and is typical of Indexed Sequen- 
tial files. Those records with a 1 in 
position seven are active records and can 
be updated. Records with a 2 in position 
seven are customer records which are no 
longer active. It is possible (through 
some error) to receive a Payment for a cus- 
tomer who has been deleted* The programmer 
will normally put in some coding (as is 
shown in this example) to handle this 
condition* 

The field BALANC in the MASTCUST record 
is the field which is tc be updated. 



The Calculation Specifications Form 
shows the CHAIN operation using the field 
CUST as the chaining field. MASTCUST is 
described as the chained file. Indicator 
20 will be turned on if no record is found 
in MASTCUST for this number. 

Line 02 showes the subtraction to get 
the new balance field. This is only done 
when indicator 02 is on which means an 
active record was found in MASTCUST. 

The output Format Specifications Form 
shows the coding necessary to update MAST- 
CUST. The file is up dated only when a re- 
cord was found and it was an active record. 
It is only necessary to output the fields 
which have actually changed. In this case 
only BALANC is mentioned. The other fields 
for this record will remain unchanged. 

The printer file is used for error con- 
ditions in this job* The first error con- 
dition shown is the case of a transaction 
affecting a deleted customer record. This 
was noted by indicator 03. Lines 03-05 
provide a message for this condition. 

The second error condition possible is 
when the transaction record contains a cus- 
tomer number and there is no corresponding 
customer on the file. This error is 
detected by indicator 20 being set on by 
the CHAIN operation. An appropriate mes- 
sage is then printed* 

The programmer does not have to program 
for the two error conditions. If the 
deleted customer record was not coded on 
lines 12-13 of the Input Specifications 
Form and a deleted record was found, the 
RPG program will halt with an operator mes- 
sage that describes an "UNDEFINED RECORD." 
The operator can then choose to bypass the 
record. 

The error coding concerning a "NOT 
FOUND" record may also be eliminated. If a 
record is "NOT FOUND" and there are no 
indicators in columns 54-57 of the CHAIN 
operation, the RPG program will halt with a 
message to the operator describing the con- 
dition. The operator can then choose to 
bypass the processing of the entire 
transaction. 

It is normally preferable for the pro- 
grammer to code for possible error condi- 
tions as this minimizes operator 
intervention. 
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Figure 116. Example of Specifying File Chaining (Part 2) 
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Figure 117 shows an example of chaining 
to two files from the same transaction* 

The File Description entries are very 
similar to Figure 116 except that two inde- 
xed sequential files are being processed 
randomly*. 

The Input specifications show the tran- 
saction record with the two fields that 
will be used in chaining* The two indexed 
sequential files both have active and dele- 
tion records as prescribed in the previous 
example. 

The Calculation Specifications shew the 
two chaining operations* Indicators 20 and 
21 are used to denote the NOT FOUND condi- 
tion that was described in the previous 
example* 



The Output Specifications show the 
valid and invalid conditions. The valid 
condition exists when indicators 02 and 04 
are on to denote that active records have 
been found, lines 01-05 print this 
condition. 

An invalid condition is noted by the 
lack of either indicator 02 or 04 being on. 
Therefore, an OR line has been coded. A 
description of the error condition is 
printed in lines 09-10, 12-13, similar to 
that described in the previous example. 

In Figure 118, the card file is chained 
to the customer file. Within each customer 
record is a field which contains an account 
number. The account number is in turn used 
to chain to the account file. 
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Figure 117. Chaining to Two Files (Part 2) 
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Customer File 



Figure 118* Using a Chained File as a Chaining File 



£haining_to_a_Seguential_Disk_File 

Chaining can also be used to select a re- 
cord from a sequential disk file. It dif- 
fers from retrieving from an indexed 
sequential file in that a relative record 
number must be used instead of a key field. 
A relative record nuiber means that the 
user must know which record he wants to 
process by describing it in terms of its 
position within the file* A reguest for 
number 151 will produce the 151st record in 
the file. 

This technique has advantages, but is 
generally limited in what applications can 
be conveniently processed in this manner. 
The following describes some of the normal 
uses for this approach: 

1. The actual code number (e.g., customer 
number) is used as the relative record 
numbers (This depends greatly on the 
coding structure used.) 

2. A mathematical formula is used to con- 
vert the code number to a relative re- 
cord number. (This methcd requires 
some randomizing technique and the user 
must be able to account for two or more 
code numbers that would randomize to 
the same number.) 

3* A table lookup approach may be used to 
locate the assigned relative record 
number. This method may require a 
large table in core* 

Figure 118.1 shows the ceding reguired 
for converting an item number to a relative 
record number by means of a randomizing 
technigue. 



The File Description Specifications 
describe the card file CARDIN which con- 
tains the item number. The MASTITEM file 
is a sequentially organized file (blank in 
column 32) and a chained file (C in column 
16) to be processed randomly (H in column 
28) . A printer file is also described. 

The Input Specifications describe the 
field ITEM within the CARDIN file. The 
MASTITEM file contains an item number 
description and the relative record number 
(NEXT) of the next record in a series of 
records whose item numbers randomize to the 
same number. (These are normally called 
synonyms) . The field NEXT is being tested 
for a zero condition by indicator 22. 
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Either the proper record is found 
(indicator 32 is on) or an invalid item 
number exists* 



The Output Specifications show the 
valid condition in lines 01-03. The inva- 
lid condition is handled in lines 04-06. 
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Figure 118.1 Randomizing Method of Obtaining a Relative Record Number. 
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Figure 118.1 Bandomizing Method 
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use of CHAIN Oper ation Code 



The chaining field may be specified by use 
of the CHAIN operation in Calculation spe- 
cifications. This enables the chaining 
function to be: 

1. Performed with a field whose value is 
calculated or read through an input 
file* 

2* Performed at either detail or total 
time in the program cycle. 

3. Conditioned on the results of another 
calculation or test* 

Ht Performed more than once on one chain- 
ing field* 

5* Performed more than once en cne or more 
chained files. 

6. Up to nine chained files can be in one 
program. 

Defer to CHAIN under Calculation Specifica- 
tion Form for further information. 



Application U s e s_g f _t he_ CHAIN, Op. e rat ion 

The application uses of the CHAIN operation 
are varied. It will allow processing of 
basic jobs where a master file is retrieved 
randomly or complex jobs where the same 
file is accessed more than once for the 
same transaction. 

The following list attempts to describe 
some of the functions which may be 
performed. 

1. Simple chaining to randomly processed 
transactions (See Figure 116). 

2. Chaining to two different files from 
the same transaction (See Figure 117). 

3. Chaining to one indexed sequential file 
and then using a field in that file to 
chain to a second indexed sequential 
file (See Figure 118). 

4. Chaining to the same file more than 
once from the same input record . 

5. Handling of cards which contain mul- 
tiple transactions commonly called 
spread cards. 
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6. Handling inventory problems which 
involve substituting items when the 
original requested item is out of 
stock. 

7. Handling Bill of Material explosions 
where one input record causes several 
chaining reguests. 

8. Accessing Bill of Material items and 
printing a list of them from random 
input. 

Use_of_CJ^C3_Codes 

This is an alternate method of chaining to 
the CHAIN operation on the Calculation Spe- 
cifications* It can only be used on an 
indexed sequential file* 

Input fields may be defined as chaining 
fields by entering C1 through C3 on the 
Input Specifications line (columns 61-62) 
for that field. Refer to Chaining_Fields 
ARish-Qnljl under Input Specif ications - 
Form. 

The C1-C3 codes differ from the CHAIN 
operation in that C1-C3 applies cnly to 
input fields, and cause chaining to occur 
only before detail time in the program 
cycle* 

Hotel There is no specific relationship 
between levels C1 to C3, other than speci- 
fying three possibilities for chaining 
fields and the order in which chaining will 

occur. 

The same input field may chain, with 
C1-C3 codes, to more than one file if it is 
defined more than once en the Input Speci- 
fication form - with a different chaining 
code every time. There is no restriction 
to the number of times that a chaining 
field defined with the CHAIN operation may 
be used. 

Two chaining files may chain to the 
same file, using C1-C3, if the same chain- 
ing code is specified for each file on the 
Input Specifications form. 



Figure 118.2 is an example of chaining 
using C1-C3. The File Description entry 
for the chaining file CARDIN has an E in 
the Extension code (column 39) denoting 
that the file will be further described on 
the Extension Specifications. The other 
File Description entries are similar to 
those of previous examples of chaining to 
an indexed sequential file. 

The Extension Specifications have an 
entry of AA in Record Sequence of the 
chaining file (columns 7-8) . This corres- 
ponds with columns 15-16 of the chaining 
file CARDIN on the input specifications. 
An entry of C1 is shown in the Number of 
the chaining field (columns 9-10). This 
corresponds with the entry in columns 61-62 
of the Input Specifications for the chain- 
ing field. Cardin is written in From 
Filename (columns 11-18) to denote the name 
of the chaining file. MASICUST is written 
in To Filename (columns 19-26) to denote 
the name of the chained file. 

The input Specifications show the 
chaining field CUST in the file CARDIN. 
The C1 in Chaining Fields (columns 61-62) 
denotes CUST as the chaining field. MAST- 
CUST has both active and inactive records. 
The active records have a 1 in position 7 
and the deletions have a 2 in position 7. 

No Calculation Specifications are 
reguired for this job. 

The Output Specifications show the 
valid conditions in lines 01-03 and the 
invalid conditions in lines 04-07. The 
valid condition is denoted by indicator 02 
being on. The invalid condition has indi- 
cator 02 off. If indicator 03 is on, a 
deleted master record was found. 

Using C1-C3, there is no possibility 
for the programmer to prevent a system halt 
in the event that a no record found condi- 
tion exists. The system will come to a 
halt and the operator will be given the 
choice of bypassing the input record or 
ending the job. 
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Figure 118.2 Chaining Using C1-C3 



Chaining wit h_an_RA_ File 

This is a seldom used function and is sup- 
ported as a modification of processing 
between limits. Only an indexed sequential 
file can be processed in this manner. The 
coding is similar to processing within 
limits except that the indexed seguential 
file is processed randomly (E in column 
28) . The record address fields may be 
single or multiple entries per record. If 
there are multiple entries, they must be 
adjacent. The next record is read from an 
BA file when a blank is found. The RA file 
may be on cards or disk* 

S£lit_Chainin.g_Fields 

C1-C3 Codes: Several fields that are not 
in adjoining positions in an input record 
can be specified as one chaining field.. 



The fields are specified with the same 
chaining code (C1, for example) on the 
Input Specifications form, and the fields 
are then used as one chaining field. The 
first field defined on the input form is 
placed in the high-order position, and the 
last field is placed in the low-crder posi- 
tion. The fields are placed in the same 
sequence as they are defined on the Input 
Specifications form. 



CHA IN: Several fields can be collected 
into~one chaining field through the use of 
move operations, and the result field used 
with the CHAIN operation. Thus, the order 
in which the several fields are collected 
is completely under the control of the 
programmer. 
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Figura 118.2. Chaining Using C1-C3 



An example of this is shown in Figure 
1184 3. In this case the chaining field is 
made up of two fields from the same card, 
but they are in different locations. The 
Input Specifications show their locations. 
The Calculation Specifications show how 
they are placed together tc form one field. 



The field SAVE will be the chaining 
field. The field HIGH is moved to the high 
order (leftmost) positions of the field by 
a MOVEL operation. The field LOW is moved 
to the low order (rightmost) positions of 
the field by a HOVE operation. Then the 
CHAIN operation is used to retrieve the 
appropriate record. 
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Figure 118.3 Collected Chaining Field. 



HE2£SSiiM_Between_Limits 



Only an indexed sequentially organized file 
can be processed between limits. This is 
accomplished by using an EA file to specify 
the limits. The BA file is never defined 
on the Input Specifications. 

The file being limited is processed 
sequentially. It can be used in a single 
input program or with multiple inputs and 
matching records. 

The limits provided do not have to be 
actual key numbers to be found on the inde- 
xed sequential file. They can be any num- 
bers and can be lower or higher than the 
lowest or highest key fields on the file. 



It is possible to process limits which 
overlap as long as the matching records are 
not used. 

Exara£lej. In this example a disk file con- 
tains customer records. The file is 
sequenced on customer number (5 digits). Ihe 

first digit of customer number denotes the 
type of account (e.g., All customer numbers 
between 10000 and 19999 are a type 1 
account) . 

A report is desired which prints cus- 
tomer types 1,2,4,5,6 and 9. This will be 
accomplished by describing a record address 
file of the appropriate limits. This is 
shown in Figure 118.4. The beginning and 
ending customer number of each record must 
be specified in columns 1-5 and 6-10 
respectively. 
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Figure 118*4 Processing Between limits 
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Figure 118. 4 Processing Between Limits 
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The EA file is described on the File 
Description Specifications with a 5 in 
columns 29-30. This denotes the length of 
the Record Address Field and it must be the 
same length as the key field of the file it 
is limiting* The E in column 39 describes 
the need of the Extension Specifications. 

The I in column 28 of the disk file 
denotes that this file will be processed by 
limits. 

The Extension Specifications describe 
the fact that the RA file is being used to 
limit the indexed sequential file (only an 
indexed sequential file can be processed by 
limits) . 

The Input Specifications describe the 
fields needed in the Customer Record. The 
record identifying indicator 02 is used to 
avoid deleted records in the customer file 
that should not be processed. 



The Calculation and Output Specifica- 
tions describe the needed results. 



SOMMARY_OF_MU1TIPLE_FILE_PFOCESSING 

The following methods are available to RPG 
for processing one file against ancther: 

1. Sequentially, using the matching record 
technique, 

2* Sequentially between limits, using an 
RA file* 

3. Randomly, using the chaining technique. 

Figure 119 shows these processing 
possibilities. 
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Figure 119. Processing Multiple Input Files 



A sequential organization ( Figure 119) 
is processed sequentially and controls the 
processing of records in: 

1* Another sequential organization- Both 
files are processed sequentially, using 
matching records to govern processing. 

2. An indexed sequential organization. If 
the file is processed sequentially, the 
matching-record technique is used to 
control processing of the indexed 
sequential file. If the file is pro- 
cessed randomly, chaining fields in the 
sequential file specify which records 
in the indexed sequential file are to 
be processed* 



An indexed sequential organization ( 
Figure 119) may be processed sequentially 
or randomly, and controls processing reco- 
rds in: 

1. A sequential organization- The records 
in both files will be processed sequen- 
tially, using matching records to con- 
trol processing. 

2. Another indexed sequential organiza- 
tion. If the file is processed sequen- 
tially, matching records are used to 
control processing. (Both files are 
processed sequentially.) If the file 
is processed randomly, chaining fields 
will be used to control processing. 
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SAMPLE_BEOGBAM_ONE_JSAIES_CCBHlSSICN 
CALCULATION^ 

In this sample program, a commission report 
is to be prepared using invoice summary 
cards (Figure 120). The cards are in 
sequence by salesman number. The invoice 
summary cards are coded with a 5 in column 
1; ether cards that are maintained as part 
of the invoice file that are not to be pro- 
cessed are coded as having no 5 in column 
1. The commission amount is calculated 
using the invoice amount: 

10% commission for invoice amounts up to 
$10,000. 

12% commission for invoice amounts above 
$10,000. 

The invoice summary card for each sale- 
sman is calculated and detail printed. A 
total commission amount for each salesman 
and a final commission total amount are 
accumulated* 

The specifications necessary tc produce 
this report are shown in Figure 121* 

File Description_S£ecif ications_Form 

Only two specification lines are necessary 
for this application. The first specifica- 
tion line describes the invoice summary 
cards that will be read into the system 
from an IBM 1442 Card Bead-Punch. The 



second line describes the output file 
PRINT. The size of the print line is 120 
characters (columns 25-27) . 

l££Ut_S]^cifJLcations_Form 

The input specifications identify and 
describe the invoice summary card and those 
cards in the invoice file that are not to 
be processed (line 6 of the form) . Result- 
ing indicator 12 identifies the cards not 
used by the program* These cards are 
selected into stacker number 2. 

Calculation_S£ecif ications_Form 

The first specification line causes the 
invoice amount to be compared with factor 
$10,000. If the invoice amount is greater, 
resulting indicator 22 is turned on. 

The second specification line causes 
the invoice amount to be multiplied by a 
factor of 12 percent only if resulting 
indicator 22 is on. Therefore, this opera- 
tion takes place only if the invoice amount 
is greater than $10,000. 

The third specification line causes the 
invoice amount to be multiplied by a factor 
of 10 percent, only if resulting indicator 
22 is off. Therefore, this operation takes 
place only if the invoice amount is less 
than or equal to $10,000. Thus, for any 
one invoice summary card, either specifica- 
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Figure 120. Input Card for Sample Sales Commission Report 
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tion line 2 or specification line 3 is 
processed* 

The fourth specification line causes 
the calculated amount COMM from each detail 
card to be added to the field SUM. The 
field SUM is used to accumulate the commis- 
sion amount for each salesman. 

The fifth specification line is 
operated upon only when a level 1 control 
break occurs, i.e., when there is a change 
in salesman number. This specification 
line causes the accumulated commission 
amount for each group of salesmen cards 
(SUM) to be added to the field FINTOT. The 
field FINTOT is used to accumulate a final 
total of all salesmen's commissicns. 

£i?i£u±_S£ecifications_Form 

Specification lines 1 through 8 provide the 
specifications necessary for printing field 
headings. The heading will be printed and 
the form will be skipped to channel 1 each 
time one of the following conditions exist: 



1. On control break (line 04010, columns 
24-25: L1). 

2. On overflow condition (line 04020, 
columns 24-25: OF). 

The indicators 0FNL1 are required to 
omit a double printing of the heading when 
conditions 1 and 2 above occur together. 

Specification lines 9 through 16 cause 
the printing of the detail card informa- 
tion. Note that line 11 or 12, either but 
not both, is operative for any one detail 
card. 

The remaining specification lines 
cause: 

1. The printing of the level 1 total SUM, 
including the constant TOTAL (lines 17-19). 

2*. The printing of the final total, 
including the constant FINAL TOTAL (lines 
1-3 lower half of Figure 121 Part 2). 
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Figure 122 Sample Sales Commission Report 

Figure 122 shows a sample of the 
finished report. 

SAMJLE_PROGBAM_I20_J£iJ^12MSS_ISiNSlCTIONSl 

In this example two input files are used. 
The transaction file is a card file with 
fields as shown in Figure 124. Another 
input file (master customer file) , which is 
on disk, contains information about the 
firm's customers (Figure 125). The flow of 
this sample program is shown in Figure 123. 

The program is to process the master 
customer file, using records from the tran- 
saction file to produce printed receipts. 
The master file is updated hy producing a 
new master customer file. The coding 
required for this program is shown in 
Figure 126. 
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Figure 123. Flow of Sample Program Two 
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Figure 124* Layout of Transaction File 
Cards 
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Figure 125. Layout of Master Customer File 
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File Description Specifications Form 

The two input files MASTI and TEANSIN, the 
output file MASTO (the updated master file) 
and MASTLIST (the printed report) , are 
defined on the File Description Specifica- 
tions form. 

MASTI is the sequential primary file . 
Processing continues until all the 
records in the master customer file have 
been processed (indicated by the E in 
column 17) . The input records contained in 
the master customer file are in ascending 
order, fixed-length* Each record is 100 
characters in length. 

TEANSIN is designated as the secondary 
file because it may net contain transac- 
tions for all the customers on the master 
customer file. TEANSIN must also be in 
ascending order. It has fixed-length reco- 
rds which are 80 characters long. 

The output file MASTO is a disk file, 
sequentially organized, containing the 
updated master customer records. The out- 
put records are fixed in length, and are 
100 characters long. 

The file MASTLIST is the printed 
report. The file format is fixed. The re- 
cord length can be up to 120. The overflow 
indicator OF is assigned to this file. 

lBEJ}£_i2P S ci f i c a t ig n s_ | o r m 

The two input files MASTI and TEANSIN are 
defined on the Input Specifications form. 
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The first card in the transaction file 
is a date card* It is assigned sequence 
BB. Whenever column 1 contains an S, indi- 
cator 04 is turned on. The date is con- 
tained in columns 2-5 of the card. 

Calculations Specifications Form 

Whenever the matching record indicator ME 
is on and indicator 02 is on, the contents 
of the field INVAMT are added to MASBAL. 
The result is stored in MASBAL. The date 
is moved to the field PAYDAT. 

Whenever the matching record indicator 
MB is on and indicator 03 is on, INVAMT is 
subtracted from MASBAL, and the result is 
stored in MASBAL. The date is moved to 
PAYPUE. 

Qutgut-Format Specifications Form 

The specifications for the printed report 
are listed under the name of the output 
file MASTLIST. 

The output file MASTO is the updated 
disk file. The entries in Output Indica- 
tors allow for the' following. 
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TEANSIN: The input records may be obtained 
from three types of cards. Seguence AB has 
been assigned to two types. If card column 
1 contains an 11-punch, record identifying 
indicator 01 is turned on. If card column 
1 contains a 12-punch, indicator 03 is 
turned on. The cards that have an 11-punch 
in column 1 are selected into stacker 2 
(column 42) . The locations of the input 
records and their labels are defined in 
columns 44-58 of the fcrm. 

The field CUSTNO (customer number) has 
entries in columns 59-60 (Control Level) 



If, however, L1 and ME are on, indicat- 
ing that there was a matching record on the 
transaction file and calculations were per- 
formed, the input record from MASTI is 
written on disk but the fields MASBAL, PAY- 
DAT, and PAYPUE contain the new entries 
based on the calculations. By coding the 
entries in this way, the new information 
for MASBAL, PAYDAT, AND PAYPUE is entered 
on the updated master customer file masto , 
and the customer's name and address from 
MASTEBIN are retained. 
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SAHPLE_PEOGRAM_THBEE 

This example shows the steps required to 
load or reorganize an indexed sequential 
file. One reason for reorganization might 
be the fact that no space is left in the 
originally defined disk area to load or add 
any new records. 

Bath the old file and the new file may 
be located on the same disk. 

File_De script ion Specif ications.Fgrm 
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ganized, is defined as 
organization is indexed 
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in columns 47-52 is the number of records 
that will be provided for in the file. 

To execute a LOAD operation, from card 
only the first file description card has to 
be replaced by the specifications shown in 
part 2 of Figure 127. 



Input S pec ifi catio ns Form 



The record 
OLDINV are 
from the d 
fields. H 
rds with c 
ly transfe 
cator 01 i 
rds. All 
to be igno 
an alphabe 
15-16 and 
These reco 
deleted an 
file. 



s of the 
to be a 
isk in t 
owever, 
haracter 
rred to 
s to be 
other re 
red. Th 
tic sequ 
record i 
rd types 
d are dr 



indexed 
utomatica 
he sequen 
only data 

1 in col 
the input 
turned on 
cord type 
is is ach 
ence entr 
dentif yin 

are bein 
opped out 



sequent 
lly ret 
ce of t 

from t 
umn 9 i 

fields 

for th 
s, if a 
ieved b 
y in co 
g indie 
g consi 

of the 



ial file 
rieved 
heir key 
he reco- 
s actual- 

Indi- 
ese reco- 
ny, are 
y placing 
lumns 
ator 02. 
dered as 
new 



Out£ut^Format_S£ecifications_Form 

All records for which indicator 01 is on 
are to be included in the new file INVFIL. 
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Figure 127. Sample Program Three (Fart 2) Load 
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The fourth sample program (Figure 128) 
illustrates retrieval and updating of reco- 
rds in an indexed-seguentially-organized 
file by means of the CHAIN operation- 

I ile_Descri£tion_ Specif ications^Form 

A card file CARDIN is specified as a pri- 
mary input file. It is read in from the 
2501 Card Reader. The E in column 17 
instructs the program to terminate the job 
when the file CARDIN is exhausted. Chain- 
ing is accomplished by the use of the CHAIN 
operation (see Calculations) . Records are 
fixed length and 80 bytes long. 
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Two output files are required: CAB- 
DOUT, to punch the exception cards (located 
on a 1442 Card Punch) ; and PRINTOUT, to 
list the transaction report. 



l££JJi_S£ecifications_Form 

The data fields of the input file CARDIN 
and the update file INVFIL are described on 
the Input Specifications Form. 

Two kinds of data cards may appear in 
the file CARDIN. The DATE card (seguence 
entry DD) is identified by an asterisk (*) 
in column 1. Indicator 02 is turned on 
when this record type is read in. 

Cards identified by a 1 in column 1 
(sequence entry CC) supply the fields used 
for calculations and output with actual 
data. Indicator 02 is turned on when this 
card type is read. 

The indexed seguential file INVFIL is 
also defined. Active records are denoted 
by a 1 in position 9* All other record 
types will turn on indicator 99. The 
fields from the active record that will be 
used are defined. 

Calculations_S_Eecif ications_Form 

Line 010 specified that the field PART will 
chain to the file INVFIL, to provide the 
inventory file record which corresponds to 
the number in PART. If a record of the 
transaction file CARDIN has an active re- 
cord in the inventory file INVFIL (i.e., 
key field and chaining field are of egual 
contents) both record identifying indica- 
tors 01 and 03 are on at the same time. 
Calculations are executed only if this con- 
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2J}t£ut;Format_S2ecifications_Form 

The PRINTOUT file's heading information can 
be printed under control of either record 
identifying indicator 02, which is set for 
the date card (the first card in the CAEDIN 
file) , or overflow (OF) . The OF indicator 
will govern all heading printing after the 
first page. The entry PAGE in line 05040 
causes the page number tc be updated auto- 
matically for each new page. 

The detail line described by entries 
05140-05240 requires the presence cf both 
the CAEDIN a n d INVFIL records (record iden- 
tifying indicators 01 and 03 on) . If 
resulting indicator 04 is en, the words 
BELOW MINIMUM indicate the stock violation. 



If indicator 05 is on, the message EXPEDITE 
is added. 

The output line described in PRINTOUT 
entries 05250-05280 is the message printed 
when the error condition of a CAEDIN record 
with no corresponding INVFIL record occurs. 
This condition is identified by record 
identifying indicator 01 being off when 
indicator 03 is on. 
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Lines 05370 and 05380 provide for the 
updating of the INVFIL records. If indica- 
tors 01 and 03 are both on, indicating that 
the INVFIL record has been updated by a 
CARDIN transaction, the new ONHAND is moved 
into its INVFIL location on disk from the 
work area SAVE. 
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Figure 128. Specifications for Sample Program Four 
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This program (Figure 129) shows how new 
item records are added to an indexed 
sequential file*, The new records are in 
card form* The indexed sequential routines 
for the 1130 do not allow retrieving a file 
(either randomly or sequentially) in the 
same program that additions are being made. 

Iile_Descri£tion_S£ecifications_Form 

The additions are in the file ADDITNS. The 
indexed seguential file to be added to is 
defined as an output file* The record 
length is 50 characters and the key field 
begins in position 1 and is 8 characters 
long. The A in column 66 indicates that 
this file will be added to. A printer file 
is also described. 

Jniut^Specif ications_Fcrm 

The fields within the ADDITNS file are 
defined. All records must have a H in 
column 1. 



being added. The HASTITEM file is being 
added to at detail time on indicator 01. 
The entry ADD in columns 16-18 denotes the 
ADD condition. A record code of 1 is 
placed in position 9 of the record to 
denote that it is now an active record. 
The fields DESCBP and VENDOR are inserted 
into the record in a normal fashion. The 
fields MINBAL and BALANC are output in a 
packed format to conserve disk file space. 
Each of these fields was defined as 7 posi- 
tions long and as numeric fields. Packing 
allows two digits (or one digit and a sign) 
to be placed in one position on the disk. 
Each field takes 7 + 1 (1 for the sign) 2 
or 4 positions on the disk. (If the fields 
were 8 positions long, they would require 5 
positions each on disk.) 

Packing is an effective means of reduc- 
ing disk file space reguired. Using Figure 
102 (to determine file capacity) shows that 
if this file requires 5,000 records, almost 
7 cylinders of disk space can be saved by 
packing these two fields. 



5ut£ut-Format_S£ecifications_|orm 

The Output Specifications Fcrm shows head- 
ing show lines and the fields of the record 
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Figure 129. Sample Program Five (File Description and Input specifications) 
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Figure 129. Sample Program Five (Output Specifications) 
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SAMFLE_PEOGEAM_SIX 

This program (Figure 130) shows how a typ- 
ical file maintenance program is written. 
The file which was added to in sample pro- 
gram five is now being maintained. 

The changes can take the form cf: 

Changes to Active Records 
Deletion of Active Records 
Reactivation of Deleted Records 

The programmer in this program should 
print an error message for an invalid con- 
dition such as trying to delete a record 
which has already been deleted. 

File_Descri£tion_S£ecifications_Form 

The changes are in a card file called 
CHANGES. The indexed seguential file to be 
changed is called MASTITEM. It is defined 
as an update file (u in column 15) and a 
chained file (C in column 16). The file 
will be processed randcmly (R in column 
28) . The other entries are the same as the 
previous example. A printer file is also 
defined. 

Indicator_su||marj;_Form 

The Indicator Summary form is Used only for 
documentation purposes and describes the 
indicators and their use. 

lJS£Hi_Sp.ecifications_Form 

The Input Specifications form shows the 
file CHANGES and the three types of records 
possible. The fields are defined for all 



record types even though the fields will 
only be present when a record is read with 
a 1 in position 1. 

The file MASTITEM is the Inventory File 
to be updated* It has both active records 
(1 in position 9) and deleted records (2 in 
position 9) . The fields MINBAL and BALANC 
are held in a packed form on disk as 
described in the previous example. 

Calculation Specifications Form 

The calculations show all input records 
chaining to the MASTITEM file using ITEM as 
the chaining filed. Indicator 20 is used 
for the "Not Found" condition. 

If the record is to be changed, the new 
fields are moved to the appropriate field 
names by the MOVE operation. The fields 
are moved only in the case of Indicator 01 
being on (change to active record) and 
Indicator 20 being off (a record was found 
for the chaining field) . 

Qi!i£y£zZoiMi_S£ecifications_Form 

The output specifications show two heading 
lines and the fields from the input card to 
be printed. The detail line also contains 
messages which show the status of the line. 
All of the valid conditions are printed in 
positions 84 to 94. The invalid conditions 
are printed in positions 96 to 113. 

The MASTITEM file is updated for the 
three valid conditions. A deletion and 
reactivation require only a change to the 
record code (position 9) . 
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Figure 130. Sample Program Six (Part 1) 
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Figure 130. Sample Program Six (Part 3 of 3) 
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APPENDIX A! S U M M A EY_0 F_ R PG_ S P E C I F I C A T ION S 



FOBMS 



File_Tj£e (Column_J51 



This summary contains a brief column-by- 
coluran description of each of the five RPG 
specifications forms. The purpose of the 
summary is to provide the user with a con- 
cise reference guide. For a complete dis- 
cussion of the entries, the user should 
refer to the applicable section. 



INFORM ATI0N_COBM0N_TO_AIL_FO EMS 

EPG source program cards must be in ascend- 
ing numeric sequence by column 1 through 5 
when they are read by BPG. 

Pacje (Columns_J;2J^ 

Enter the page number of the specifications 
forms in the following seguence: 

File Description Specifications form Exten- 
sion Specifications form. Input Specifica- 
tions form, calculation Specifications 
form, Output-Format Specifications form. 

Line (Columns_3-5]_ 

First two digits of line number are pre- 
printed* Use column 5 to identify addi- 
tional lines to be inserted between two 
pre-printed lines* 

l5JEi!_2lPS_iColumn_61. 

Contains pre-printed code F, E, I, C, or 
which must be punched into all RPG specifi- 
cation cards* 

Comments (Column_7l 

Enter an asterisk in each line to be used 
as a comments line. 

P£03£am_Identification JColumns_ 75-801 

Insert any characters to identify certain 
cards or portions of the program. 



IILI_DISCRIPTI0N_SPECIFICATI0]JS_JF1 

Iile_Name_iColumns_T^_1j»l 

Enter a name for each file* Maximum 
length: 8 characters of which the first 
five must be unique. Names must be left- 
justified* First character must be alpha- 
betic* Special characters or embedded 
blanks must not be used. 



I = Input File 

= Output File 

= Update File (only disk files) 

C = Combined File (only card files) 

Fiie_Designation_iColumn_1.6]L 

P = Primary file 

S = Secondary file 

C = Chained file 

T = Table file 

E = RA File 

Leave blank for output files. 

End_of_File_J(Column_.17)_ 

An E in column 17 is required whenever pro- 
cessing of other input files is to be dis- 
continued after the last card of a given 
input file has been read and processed. 

Seejii€jSC.§ (Column_j8j_ 

If matching fields are specified for an 
input, combined, or update file, enter: 
A if the file is in ascending sequence 
D if the file is in descending seguence 

I±j£_Forjat_JColumn__191 



F = Fixed-length records 

j r £!£JS_lfSaill— gJ?J— gecord Length JColumns 
20-271 

Enter right- justified the length of one re- 
cord in Record Length. Leave Block Length 
blank. 

Record Sizes 



Device 


Minimum 


Maximum 


Card 
1403 
1132 


1 
1 
1 


80 

120 

120 


1130 aisk 
Sequential 
DA 
ISAM 


1 
1 
1 


640 
640 
636 


Mode of Processinq_iColumn_28 



Enter the mode by which the file is 
processed: 

E = random processing of a sequentially 
or indexed sequentially organized 
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blank = 



file. 

sequential processing of the inde- 
xed sequentially-organized file 
between limits (limits are supplied 
by a RA file) . 

processing of the seguentially- 
organized file or sequential pro- 
cessing of the indexed- 
sequentially-organized file. 

L§£3±h_of_Ke2_Field_or_cf_Eecord_Address 
Field (Columns_29-30j. 

Enter number of positions that each entry 
in the RA file occupies* 

Enter the length of the key, if the 
file is an indexed-seguentially-organized 
file. Maximum key length is 50 characters. 



l££U±ZQut£Ut_Unit Device ..Code 

IBM 2501 Card Reader READ01 

IBM 1442 Card Reader/Punch READ42 

IBM 1442 Card Punch PUNCH42 

IBM 1403 Printer PRINTER 

IBB 1132 Printer PBINT32 

IBM 1130 Console Keyboard CONSOLE 

IBM 2310 Disk DISK 

symbol ic_de vice (Columns_47-52J. 

If the file is indexed sequential and is to 
be loaded enter the maximum number of reco- 
rds in the file. (Number must be left jus- 
tified with no commas.) 

Columns 53 -65 

Leave blank. 



lecprd_Address_Ti £ e_JColumn_311_JDisk_0nlyl llle_Addition_jcolumn_661_JDisk_0nly.l 



K = Indexed-sequential file (I in column 
32) 

JxeS_2J_Iile_0raanizaticn_JCglumn 32) (Disk 
Quill 

blank = sequential organization 

1 = indexed ssequential organization 
Note When an I is entered, there must 
be a K in column 31, a 1 in columns 
35-38, and the length of the key 
field in columns 29-30. 

2 = two I/O areas assigned to a punch 
or reader with no stacker select spe- 
cified (any digit 1-9 will denote two 
I/O areas) . 

Overflow_Indicators_JColumns_33-341_ 

If overflow indicators are used, enter the 
overflow indicator associated with the 
file. A maximum of two overflow indicators 
is allowed: OF and OV. Do not specify an 
overflow indicator for the console printer. 

Ke2_Iield_Starting_Location_JColumns_35-3 81. 

If this record is for an indexed-sequential 
file, enter a 1, right- justified. The key 
field must begin in position 1 of 1130 
indexed sequential records. 

Extension Code (Column_392. 

E = The file specified on this line is a 
table file, a chaining file (specified 
by codes C1-C3) or an RA file. 

2Svice__(Columns_40-461 

Enter the device code for the input/output 
unit used by the file specified in columns 
7-14. 



Enter an A in this column if the file 
defined on this line is an indexed- 
seguentially-organized file and new records 
are to be added. The record to be added is 
described on the output specifications in 
columns 16 to 18. If this column contains 
an A, column 15 must contain an (output). 
It is not possible to add and retrieve from 
the same file in the same program. Column 
28 must be blank. 

Col umns 67-74 

Leave blank. 

EXTENSI0N_SPECIFICATI0NS_JE1_ 
Columns_7-8 

If the file defined on this line is a 
chaining file, enter the sequence of that 
file from columns 15-16 of the Input Speci- 
fications sheet. Leave blank if the file 
described is a record address file. 

NMb§£_of_the_Chainin2_Field_jColumns_9-1_01 
(Disk only]^ ' " ~ 

If the file is an RA file or a table file, 
leave these columns blank; otherwise, enter 
the number of the chaining field that has 
also been entered in Chaining Fields (Cols. 
61-62) of the Input Specifications form* 

l£2J_IiISM5!e (11-18) 

Enter left- justified the name of the table 
input file, chaining file, or RA file 
defined on the File Description Specifica- 
tions form. 

To Filename (19-26) 

If the From file is a chaining file (using 
the alternate chaining method) , enter the 
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name of the chained file. If the From file 
is an EA file, enter the name of the file 
that contains the data records to be pro- 
cessed* If the From file is a table file, 
enter the name of the output file to be 
used after the table has been updated. 
Leave blank if the table is net to be put 
out * Notej. columns 7-18 are usea only 
for the alternate chaining method. 

Table Name (Columns, 27^3 21 

Enter name of table as follows: 

• For alternating input format, enter name 
of table to which the first entry in the 
input record belongs* 

• For non-alternating input format, enter 
name of single table. 

The name must be left- justified and 
consist of 4, 5, or 6 characters: TAB and 
one to three alphabetic or numeric 
characters* 

Number_of_Table_Entries_£er_Becord_iColumns 
33-351 

Enter right- justified the maximuit number of 
table entries contained in each input 
record* 

Number_of_Table_Entries_£er_Table_JColumns 
36-39l_r_Iiist_Table 

Enter right- justified the number of table 
entries* Leading zeros may be omitted. 



len3th_of_Table_Entri_JColumns_4 02il21_ 
First Table 



Enter right- justified the length of each 
table entry* Maximum lengths are: 

• For alphameric entries, 248 characters 

• For numeric entries, 14 numeric digits 

For a packed field enter the number of 
digits of the field. 

Packed_JColumn_431_2_First_Table 

P = Table entries are in packed-decimal 

format 
blank = Table entries are in unpacked- 

decimal format. 

Pecimal_Fosition_lColumn_441_r_IiESt_Table 

Digits through 9 = Number of decimal 

positions in numeric table entries 
(cannot exceed number specified in 
columns 40-42* 

Elank = Alphameric table entries. 



Seajjence_JColumn_4 51_-_First_Table 

A = Table entries in ascending sequence 
D = Table entries in descending. 

seguence. 
blank = Table entries not in sequence. 

Table_Name_JColumns_463511_r_Secgnd_Table 

For alternating input formats only. Enter 
name of table to which the second entry in 
each input record belongs. Name must con- 
sist of 4, 5, or 6 characters: TAB and one 
to three alphabetic or numeric characters. 

L§fi3£h_o£_T.abIe.-l2;tEI-iC.2±M£S_52-541_- 
SsSSlJ^Table 

For alternating input formats only. Enter 
right-justified the length of each table 
entry* 248 columns maximum for alphameric, 
14 columns maximum for numeric table 
entries* 

For a packed field enter the number of 
digits of the field. 

Packed_iColumn_551_2_Second_ Table 

P = Table entries are in packed-decimal 

format 
blank = Table entries are in unpacked- 

decimal format. 

Decimal_Positions_JColumn_561_;_Second 

Table 

Digits through 9 = Number of decimal 

positions in numeric table (cannot 
exceed number specified in columns 
40-42) . 

Blank = Alphameric table entries. 

Seauence_iColumn_571_-_Secona_Table 

A = Table entries in ascending 

sequence. 
D = Table entries in descending 

sequence, 
blank = Table entries not in sequence. 

Comments_JColumns_58-741 

Enter any desired comments. An asterisk in 
column 7 must not be entered in this type 
of comment if in a line containing 
specifications. 

IIP0T_SPECIFICATI0NS_JI1 

File_Name (Columns_7- 1,41 

Enter a name for each file. (One entry per 
file) . Maximum length: 8 characters. 
Name must be left- justified. First 
character must be alphabetic. Special 
characters or embedded blanks must not be 
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used. The first five charcters must be Not (Columns 25, 32, 39) 

uniquei 

N = Code described must not be contained in 
ftJD^0E-Eelationshi£__(Colujiis_J,itrJ61 the record position. 

AND = Ihe AND-relationship of record iden- ££Z/D_jColumn£ 26, 32 T 40) 

tification codes in the preceding ~ ~ 

line is to be continued. D = Digit portion of the specified position 
OR = The entries in record identification is to be checked! 

codes of this line are to be in an Z = Zone portion of the specified position 

OE-relationship tc the entries of the is to be checked. 

preceding line. C = Entire character of the specified posi- 
tion is to be checked. 
Se2uence_JColumns_15-_16j_ 

Character_JColumn 27 x 34 X _41J_ 
Enter a number, beginning with 01 for each 

file and continuing in consecutive sequence If c/Z/D contains C or D, enter any one of 
to 99, to specify seguence-checking of re- the 256 EDCDIC characters. If C/Z/D con- 
cord types. Enter leading zeros. Enter tains Z, enter 

any two alphabetic characters to indicate 12-zone - check for S or any of the 16 
that sequence checking is not required. characters that have the same 

Lines with alphabetic entries must precede zone as an A 

lines with numeric entries. Any numeric 11-zone - check for - or any of the 16 
entry in Sequence requires an entry in characters that have the same 

column 17. zone as J 

no zone - absence of 11 or 12 zone — check 
Nu™ber_JColumn_j71_JUsed_Onli_with_Numeric for blank or any one of the 16 

Entri_.in_Columns_15 = 161 characters that have the same 

zone as 1 
1 = Only one record of a specific record all others-check for any one of the 16 
type may be present before reading characters that has the same 
another record type. zone. 
N = One or mere records of a specific re- 
cord type may be present before reading Stacker_Select_JColumn_421 
another record type. ~~ 

Number of stacker to which input cards are 
0£ii21_iCcJ : umii_181_iUsea_0nlj_with_Numeric to be selected. Leave blank for normal 
l£tr^_in_Coluns_J5-J61 stacker (of multi-stacker devices) or for 

single-stacker devices. 

= This record type may not be Note:. Stacker-select entries for combined- 

present, file cards that are punched and/cr printed 

blank = Record must be present. must not be made on the Input Specifica- 

tions form. Stacker select will be ignored 

Record_Identifiing_Indicator_jcolun!ns if two i/o areas (2 in column 32 of the 

15r20]_ File Description Specification) are 

specified. 

Two digits 01-99 = indicator for the input 

record type defined in columns 21-41. Packed__(Column_431 

Iecord_Identification_Codes_JColu^ p = input data in packed-decimal 

format. 
This field is divided into three identical blank = input data in unpacked format. 
subfields: 

Field Location (Columns 44-51) 
Columns 21-27 

Columns 28-34 Location of fields in input record. 

Columns 35-41. 

FROM (COLUMNS 44-47) . Left-most location 
An AND-relationship exists between these of the field specified in Field Name. 
three fields. 

TO (COLUMNS 48-51) . Right-most location of 
losj^ign_lColumns_2J z 24 x _28-31 x _35-381 the field defined in Field Name. Number 

must be right- justified. Leading zeros may 
Enter the number of the input record posi- be omitted, 
tion containing the identifying code. Must 
be right-justified. 
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Deci|ial_Positions_JColumns_521 

For numeric fields only. Enter digits 
through 9 to indicate number of decimal 
positions in input field (cannot exceed the 
field length) 4 

Ii§i5_Name__[Columns_53-581 

Name of each field defined in Field Loca- 
tion. Maximum length is 6 characters. 
First character must be alphabetic. Spe- 
cial characters or embedded blanks may not 
be used* Field Name must be 
left- justified* 

Control_Level_iColumns_59-601 

Any one of the control-level indicators L1 
(lowest) through L9 (highest) to identify 
control fields* 

Matching Fields or Chaining Fields fCclurans 
61 r 621 

M1 to M9 = record/matching for up to nine 
input fields or sequence check- 
ing for the fields of a single 
input file* 

C1 to C3= alternate method of chaining is 
specified; codes identify the 
chaining field. If the opera- 
tion is used, no entry is neces- 
sary in this field. 

Iield-Becord_Eelation_jColumns_63-641_ 

Enter any indicator specified to provide 
field-record relation for identical fields 
contained in different locations (0B- 
relationship) . Normally, these are the re- 
cord identifying indicators specified in 
columns 19-20 of the Input Specifications 
form. Only record identifying indicators 
may be used when the field is a control 
field or a match field. 

Iield_Indicators_JColumns_6 5-701 

If a field is alphameric, only zero or 
blank specifications may be used. Enter 
any one of the indicators 01-99, H1-H9, as 
required. If the field specified in 
columns 46-58 contains any positive value, 
except +0, the indicator in Plus (columns 
65-66) is turned on* If the field contains 
any negative value except -0, the indicator 
in Hinus (columns 67-68) is turned on. If 
the field contains only zero or blank, the 
indicator in Zero or Blank (columns 69-70) 
is turned on. It is also turned on if the 
field is numeric and contains only +0 or 
-0. These indicators are off at the begin- 
ning of the program. 



^erlinq_Siqn_Position_JColumns_7_1-2i! ; l._Used 
2£ll_f O£_£lograms_£rocessing_sterlinq 
c JJ r . r . e Ji c .2_<liounts i 

Enter in these columns the position in the 
record that contains the sign of the ster- 
ling field. If the sign is in the normal 
position, enter S in column 74. 



CALCULATIONS PECIFICATI0NS__(C1. 

Control_Level_JColumns_7-81 

Leave blank to denote operation is to ccurr 
during detail time. Enter any one of the 
control-level indicators L0 through L9, or 
LR (last record) to specify that the calcu- 
lation contained in this line is to be per- 
formed at total time* 

Enter SB if statement is part of a EPG 
subroutine* 

l2iicators_JColumns_9-17}_ 

Enter one to three indicators right- 
justified. Any of the indicators may be 
used. 

Columns 9, 12, and 15 may contain blank or 
N only. If there is more than one indica- 
tor in a line, EPG assumes an AND- 
relationship between the individual 
indicators. 

lactor_J_JColujns_j8-27}_ 

Enter a field name, a label, or a literal. 

Field Name — Left- justified, maximum 6 
characters. First character 
must be alphabetic. Special 
characters and embedded blanks 
may not be used. Must be 
defined on the input form or as 
a result field on the calcula- 
tion form* 

Literal — Numeric: left- justified, maxi- 
mum length 10 characters. One 
decimal point and/or one sign 
(plus or minus) may be used. 
Alphameric: left- justified, 
must be enclosed in apostrophes 
('), maximum length 8 charac- 
ters. Any one of the 256 EBCD- 
IC characters may be used. 

Label 



Enter a label name for use in a TAG or 
ENDSE statement. First character must be 
alphabetic. Special characters and blanks 
may not be used- 
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Factor 1 is only used with the operations 
ADD, SUB, MULT, DIV, COMP, LOKUP, TAG, 
CHAIN, BEGSR, and ENDSB. 

__________________--_-_-- 

Operation code left- justified. 

___________2_-_--------2_ 

Field name, label, or literal to be used in 
the specified operation. (See Factor 1 for 
definition of field name, label, and 
literal.) 

Factor 2 is not used with the opera- 
tions HVB, TESTZ, RLAB1, TAG, SETOF, SETON, 
BEGSR, ENDSB, and EXCPT. 

R§sult_Field_JColumns_ 43.2481 

Besult field name* First character must be 
alphabetic* Special characters or embedded 
blanks may not be used. Field name must be 
left-justified. It is net used with the 
operations COMP, GOTO, EXIT, TAG, SETOF, 
SETON, CHAIN, BEGSE, ENDSB, EXSR, and 
EXCPT. 

________2___._----__---i!2z__L 

Number of storage positions required for 
result field* Maximum length of numeric 
fields 14 digits; maximum length of alpham- 
eric fields 256 characters. Must be right- 
justified* May be left blank if already 
defined in another line of the calculation 
form or in the input form. 

Decimal Position (_olumn_5_l 

Decimal positions of the result field (0 
through 9) . Must be blank if the result 
field is alphameric. The number of decimal 
positions cannot exceed the field length. 

____„_______i------_--l 

H = Half-adjustment of result field. 
blank = No half-adjustment of result field 

l§sui£i£3-l£d.i£3±2£S_JColumns_54-5 9J_ 

Any indicator 01-99, H1-H9, L1 through L9, 
LB, OF or OV may be used. 

A£ithmetic_0£erations : Enter up tc three 
indicators to be~turned on whenever the 
result is positive (indicator in columns 
54-55) , or negative (indicator in columns 
56-57) , or zero (indicator in columns 
58-59) . 

Compare Operations. Enter up to three 
indicators to be~turned on whenever Factor 
1 > Factor 2 (indicator in columns 54-55) , 
or Factor 1 < Factor 2 (indicator in 



columns 56-57) , or Factor 1 = Factor 2 
(indicator in columns 58-59) . 

LOKUP Operation: Enter one or two indica- 
tors in High, cr Low, or Equal, or High and 
Equal, or Low and Equal. 

An indicator in the high column will 
cause a search for the first table argument 
(Factor 2) higher than the search argument 
(Factor 1) . An indicator in the low column 
works in the opposite manner. If there is 
an indicator in the high or lew columns, 
the table name in factor 2 must be speci- 
fied as ascending or descending on the 
extension specifications. 

1 J ST Z_0£er a ti o n : Enter up to three indica- 
tors to be turned on whenever a 12-punch 
(indicator in columns 54-55), or an 11- 
punch (indicator in columns 56-57) , or any 
other zone or no zone (indicator in columns 
58-59) is detected in the field specified 
in Result Field in this line. 

SETOFj, SET ON Operations: Enter up to three 
indicators to be turned on (SETON) or off 
(SETOF). 

CHAII_l n _°£ii c i!2-i-SfiiI^-SJ-S£-iS^ic§i2£ 
Jthe_same~indicator£_in_columns_ 5_-57_to_be 

turned_on_in_the_case_of_a_not_f ound 

record... 

Comment s__COl_mn__6_-7_l 

Enter any desired comments. 

OUTPUT = FORMAT_SPECIFICATIONS_JCl 

liiS-lMe-JC.^.l.unm.S-Zrliil 

Enter name for each input file. Maximum 
length 8 characters. First character must 
be alphabetic. Special characters or 
embedded blanks may not be used. Name must 
be left-justified. If several lines of the 
same file are specified in sequence, the 
name may be entered in the first line only. 
The first five characters must be unique. 

AN^OKj = Belaticn^ij2_iColumns_J4-J61. 

AND = Becords in an AND-relationship. 
OB = Becords in an OR-relationship* 
(columns 14-15). 

lIES_IHZD21Z.El_lc.olumn_J.51. 

H = Heading line. 
D = Detail line. 
T = Total line. 
E = Exception line. 
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Adding Records_to_an 

Indexed = Seauentialli-Organizsil_IiiS 

Jcolumns_16-J181 

Enter ADD in these columns if output reco- 
rds are to be added to an IS-organized 
file. The file description for this file 
must have an A in column 66. 

For card and/or printer files, use 
these columns as described below. 

Stacker_Sele,ct_JColumn_161 

Number of stacker to which cards are to be 
selected. Leave blank for normal stacker 
(multi-stacker device) cr for single- 
stacker device. Entry is allowed only if 
the file is described as combined or output 
in the File Description Specifications. 

S£ace_JColumns_J7-_i81 

Enter at least one entry in columns 17-22 
if line is to be printed. 

BEFORE_JCOLJIMN_r7}.. Enter 0, 1, 2, or 3 to 
specify line spacing before printing. 

AFTER iCOLUMN_181_. Enter 0, 1, 2, or 3 to 
specify~line~spacing after printing. 

A entry of for Space Before or Space 
After for use with the console printer is 
not permitted. 

Sk±£ 

At least one entry required in columns 
17-22 if line is to be printed. 

BEFORE_iCQLUMNS_ 19-201. Enter any number 
from 01 through 12 to specify skipping 
before printing. Leave blank for no skip 
before printing. 

A skip may not be specified for the 
console printer, or for channel 7, 8, 10, 
and 11 with 1132 printer. 

AFTER_JCQLUMS_2!z221. Enter any number 
from oTthrough 12 to specify skipping 
after printing. Leave blank for no skip 
after printing* 

Output _Indicators_JColumns_23j;3!l 

Enter right- justified up to three indica- 
tors to identify files cr describe fields. 
Columns 23, 26, 29 may contain blank or the 
letter N (not) only. 

Iield_Name_JColumns_3 2-371 

Enter any name defined in either input or 
calculation form. Leave blank fcr con- 
stants specified in columns 45-70. Use 
field name PAGE to cause automatic page 



numbering on normal printer*. Use any field 
name beginning with PAGE (e.g. PAGE1) for 
additional page counters. 

Edit Codes_iColumn_381 



The entry in this column controls editing 
of numeric fields* 

1 Print with commas, print zero balance, 
suppress sign. 

2 Print with commas, suppress zero balance 
and suppress sign. 

3 Print without commas, print zero balance, 
suppress sign. 

4 Print without commas, suppress zero 
balance and suppress sign. 

A Print with commas, print zero balance, 
print sign as CR. 

B Print with commas, suppress zero balance, 
print sign as CR. 

C Print without commas, print zero balance, 
print sign as CR» 

D Print without commas, suppress zero 
balance, print sign as CR. 

j Print with commas, print zero balance, 
print sign as -. 

K Print with commas, suppress zero balance, 
print sign as -• 

L Print without commas, print zero balance, 
print sign as -. 

H Print without commas, suppress zero 
balance, print sign as -. 

X Remove positive zone from units position 
of numeric field. No zero suppression. 
(This code is accepted by 1130 RPG, but 
no function is performed since a plus 
field will print or punch with only a 
digit in the units position. 

Y Edit date field: 

3 digit - (n) n/n 

4 digit - (n) n/nn 

5 digit - (n) n/nn/n 

6 digit - (n)n/nn/nn 

The first n will be zero suppressed. 

Z High order zero suppression and remove 

sign. . 

An edit word may be used with a numeric 
field by leaving this column blank. 
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I2i§l If inverted print is specified en 
the SPG control card (I in column 21), the 
use of commas and periods will be inverted 
in all editing with edit codes. Also, the 
Y code will use period (.) instead of 
slash (/) . 

JIajjii_After__(Column_391. 

B = Reset alphameric output fields to 
blanks or numeric output fields to 
zeros* 

Reset occurs after execution of the speci- 
fied output operation. 

lJ3d_Position_in_0utput Record fColumn 
1Q-43). 

Enter number of output- record position to 
contain rightmost character of output 
field. 

facked_JCglumn_44J_ 

P = Output data in packed decimal for- 
mat (disk only) . 

blank = Output data in unpacked decimal 
format* 



of the 256 EBCDIC characters. Maximum 
length 24 characters* 

Apostrophe required within constants 
must be represented as two consecutive 
apostrophes. 

Edit Word: Enter any edit word to spe- 
cify editing with respect to punctuation, 
printing of $ sign status, zero suppres- 
sion, etc. Must be enclosed in apostrophes 
(for numeric fields only.) 

With edit codes 1-4, A-D, and J-M two 
entries are possible: 

'*■ in columns 45-47 to denote check 
protecting asterisks. 

•$' in columns 45-47 to denote a float- 
ing dollar sign. 

Sterlin3_Si3n_Position_iColumns_7^-74JL 

Enter in these columns the position in the 
record that contains the sign of the ster- 
ling field. If the sign is in the normal 
position, enter S in column 74. 



£onstant_or_|!dit_Word_JColumn_45-701 

Constant: Enter any desired constant enc- 
losed in apostrophes. May consist of any 
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APPENDIX _J2 EPG CONTROL CAED 



The deck of input cards tc the Report Program Generator must be preceded by an EPG control 
card. This control card must be prepared by the programmer or operator according to the 
functions required of the EPG compiler. 

The format of the EPG ccntrcl card is: 

Meanincj 

Eage and line Numbers. 

Identifies the card as an Epg control card. 

Not used. 

Type of run: 

D - produce a listing but no compilation* 

E - bypass listing. 

blank - compilation with listing. 

12-16 blank Not used. 



Cols^ 


Contents 


1-5 


XXXXX 


6 


H 


7-10 


blank 


11 


B, D, blank 



17 1 



The shillings portion of a sterling-currency input field is in the 
IBM format. 

2 The shillings portion of a sterling-currency input field is in the 

ESI format. 
b l ank The input does not contain sterling-currency fields. 
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The pence portion of a sterling-currency input field is in the IBH 

format. 
2 The pence portion cf a sterling-currency input field is in the BSI 

format, 
blank The input does not contain sterling-currency fields. 
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The shillings portion of a sterling-currency output field is in 
the printer format. 

1 The shillings portion of a sterling-currency output field is in 
the IBM format. 

2 The shillings portion of a sterling-currency output field is in 
the ESI format* 

blank The output does not contain sterling-currency fields. 
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The pence portion of a sterling-currency output field is in the 
printer format. 

1 The pence portion of a sterling-currency output field is in the 
IBM format. 

2 The pence portion of a sterling-currency output field is in the 
BSI format. 

blank The output does not contain sterling-currency fields. 

21 I The inverted-print option is chosen (i.e., commas are used instead 

of decimal EQints. In mumeric literals and with edit codes 1-4, 
A-D, J-B periods are used instead of a slash when using the Y edit 
code, 
blank The inverted-print feature is not to be used. 

22-25 blank Not used. 
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26 A or blank Alternate collating sequence: Enter an A if an external subrou- 
tine is used to translate the sequence of a matching fieia to the 
EBCDIC collating sequence. This external subroutine must have the 
name ALTSE. 

If an external translating subroutine is not used, leave this 
column blank. 

27-74 7 Not used. 

7S-80 XXXXXX These columns can contain the name (six characters) ^ofjhe, uggx'j, 

program. All six characters appear in the listing included in the 
program 
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APPENDIX_C!__STEPLING_EpUTINES_FOE_EPG 



The RPG sterling routines furnish users 
with a convenient and time-saving means of 
handling sterling amounts. The presence of 
sterling fields is indicated to the RPG 
program by additional entries in the input 
and output specifications forms and in the 
control card. The file description exten- 
sion, and calculaticnforms are not 
affected. 



Sterling input informa 
represented in two formats 
described in the control c 
sterling routines convert 
into a pence-format field, 
field is a sterling amount 
pence. If the output is t 
fields are converted with 
pence printed in two posit 
zero suppression in effect 
position of each field. I 
not printed, the output is 
ther BSI or IBM formats. 



ticn can be 
: IBM and BSI as 
ard. The EPG 
the input fields 
A pence-format 

represented in 
o be printed, the 
shillings and 
ions each with 

in the tens 
f the output is 

converted to ei- 



_______ On both input and output, the 

pounds field must consist of at least one 
and no more than eight positions. 

_______ bsi or IBM input files of one pro- 
gram must use the same cede combination 
throughout. 



INPUT SPECIFICATIONS 



The position of the sign must be specified 
in columns 71-74. Enter an S in column 74 
if the sign is in the ncrmal position. If 
the pence field has decimal positions, the 
normal position of the sign is in the 
right-most decimal position of the pence 
field. If the pence field has no decimal 
positions, the normal positions of the sign 
is in the units position of the pounds 
field. 

|2te_Ji One of the digits 0,1,2, or 3 must 
be entered in column 52, to indicate the 
number of required decimal positions. 

No.jte._2i it is not permissible to use the 
same name for both a sterling field a n d a 
decimal field* 

_______ The sign of the field must contain 

a numeric underpunch. 



OUTPUT-FORMAT SPECIFICATIONS 

The positions of the sign for sterling out- 
put fields must be specified in columns 71- 



74 in the same manner as for sterling input 
fields. The sterling sign will always 
appear on output whether the field is plus, 
minus or zero. f ' 

£___ut_!hich_is__ot_ Printed. The field may 
be specified as any combination of IBM or 
BSI Shillings and pence formats. The siqn 
may appear anywhere within the record. 
When outside the field, the sign will be 
supplied with a zero underpunch. 

P-___f___ut£ut. The normal sign position 
must be used. Insert the letter s in col- 
umn 74 of the Output Specification Sheet. 

!______ Shillings and pence are printed in 

two positions each. When no edit word is 
specified, zero suppression is in effect in 
the tens positions of each field. It is 
necessary to add two additional positions 
for printed output when input is in the BSI 
format and one extra print position for 
input in the IEM format. 

!______ The pounds field consists of at 

least one and no more than 8 positions 
Zero suppression on the pounds field may be 
obtained by placing Z in column 38 of the 
specification sheet. 

I2_____ If a field is defined as a ster- 
ling field in the input but not in the out- 
put specification, the output will be in 
pence format. 



_______ Editing is allowed only on printed 

°_ t ?"_t : J f ile f • . The rules governing the use 

are the same as those 
The features available 



„* „j • a. , , *-• J 9 the use 

of edit control words are the same as those 

for decimal fields. 

are: 

1. 

2. 



Zero suppression in the pounds field. 

Zero suppression in the shillings 
field, if both pound and shilling 
values are zero. 

3. Zero suppression in the pence field, if 
pound and shilling and pence values are 



zero. 



4. 



Suppression of zeros preceding signs 
and suppression of separation marks be- 
tween pounds and shillings, shillings 
and pence, and pence and decimals. 

5- The high crder shilling and pence posi- 
tions will be zero suppressed when a 
sterling field is edited. 
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in 



L-todTBOL CARD 

To select the required sterling routines, 
the RPG program needs information regarding 
the input and output formats. This infor- 
mation is entered in four columns of the 
RPG processor control card* The entries 
are: 1 for IBM code or 2 for BS1 code. 



CALCULATION SPECIFICATIONS 

While no additional entries are reguired 
this form, the user should keep in mind 
that all calculations are done in pence 
format* This must be considered when 
defining the length of result fields or 
when using Factors 1 or 2. 

Lenaths_of_Penceri;oEiat_IiSli!s 

If a pence-format result field is tc be re- 
converted into a sterling output field, the 
highest amount it is permitted tc contain 
is 23,999,999,999*999. This converts to a 
field containing tight pound positions 
which is the maximum allowed. 

Note: If the two high order digits of a 
pence field are greater than 23, a high 
order digit will be lost when the field is 
converted to pound-shillings-pence format 
for output. 



Pousd._.Sterlin2_Iorma ; ts. 

In addition to the printed cutput format, 
EPS will support, on the input and output 
fields, two standards for pence and shill- 
ing portions of the sterling fields: IBM 
or BSI. Columns 17-20 of the BPG Processor 
Control Card indicate either the IBM or BSI 
formats. The formats for IBM and BSI are 
listed here. 

Column 1 7_J Sterlings hi lliM_Iiel5_ on I|£Ut 
IBJOoimit: Two Positions are allowed tor 
the shilling option in the input fields: 
00-19 for to 19 shillings. 

BSI Format: The shilling option in the 
Iniut~fiSlds is indicated as listed here: 



0-9 shillings by a 0-9 punch, 
10 shillings by a 12-punch, 
11-19 shillings by an A-I punch. 

Column l8_JSterlina_Pence_Field_on_In£utl 
IBM_Format: The pence option on input 
field is as listed here: 

0-9 pence by a 0-9 punch, 

10 pence by an 11-punch, 

11 pence by a 12-punch. 

BSI Format: The pence option on the input 
field is as listed here: 

0-9 pence by a 0-9 punch, 

10 pence by a 12-punch, 

11 pence by an 11-punch. 

Column 19_iSterlin a _Shillina_Field_o£ 2aiz 
iutl"lBM_Format: Two positions are allowed 
for the shilling option on the output 
field: 



00-19 for 0-19 shillings 



BSI_Format: The shilling option on the 
output field is as listed here: 

0-9 shillings by a 0-9 punch, 
10 shillings by a 12-punch, 
11-19 shillings by an A-I punch. 

Column_20_iSterlina_lence_Field_on_0ut£|tl 
IBM_Format: The pence option on the output 
field is as listed here: 

0-9 pence by a 0-9 punch, 

10 pence by an 11-punch, 

11 pence by a 12-punch. 

BSI_Format: The p en ce option on the 
output field is as listed here: 

0-9 pence by a 0-9 punch, 

10 pence by a 12-punch, 

11 pence by an 11-punch. 
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APPENDIX_Di__SUMMARY_0F_PEOGPAHS_INDICATOBS 



I Indicator 

I • 



Field 

Indicators 

01-99 

Zero and Bla 

Plus 

Minus 



IWhere Located |Where Used|Turned On 
H -» + 



H1 through H9 



IF 



L0 
(Level zero) 



t- 



Control Level 
Indicators 
L1 through L9 



ME 
(Matching 



OF/OV Overflow 



Input form 



Input form 
Calculation 

form 



I Indicator | by Blank or Zero 

I (calc), | in specified field 

(Output | by Plus in spec 

I Indicators | field 

I | by Minus 

I | field 
.4 4 

I Indicator 
I (calc) , 
| Output 



in spec. 



Internal 



I whenever the speci- 
fied field status 
I or record identi- 
fication condition 
lis satisfied 
+- 



Internal 



ICcntrcl |after processing 
| Level | the last record 
I (calc), |of the last file 
I Output [ (see column 17 
I Indicators! of File Descr.) 
+ ___, 



ICcntrcl 
| Level 
I (calc.) 
I Output | 
j Indicators! 



I at the end of every 
I processing cycle 
I 



Input form | Control | when the value in 
Columns 59 60 |Level | control field 
I (calc), | changes. All 
I Indicators! indicators of the 
I (calc), | lower levels are 
lOutput | also turned on 
I Indicators! 
-f ! + 



Internal 



nternal 



(Indicators! if the matching- 

I (calc), | field contents of 

I Output 1 the reccrd of a 

I Indicators! secondary file 

I I match the matching- 

I | field contents of a 

I | record in the 

I | primary file 
+ ,. 



(Indicators! (see Significance 
I (calc*), | of Program Logic) 
lOutput | 
(Indicators! 
I I 
-+ (■ 



Turned off 



before this field 
status is to be 
tested the next 
time 



internal, at the 
end of the detail 
cycle (see Sign, o 
Program Logic) 



at the beginning 
of processing 



is never turned 
off by BPG 



at end of following 
detail cycle 



when all total cal- 
culations and out 
put are completed 
for the last record 
of the matching 
group. 



after the following 
heading and detail 
lines are completed 



T — 1 

I Notes l 

+ ^ 

Note 1 



Note 1 



Note 1 
Note 2 



Note 1 



Note 3 
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j Indicator 



Fecord 
Identify 
Indicate 
01-99 



ing 

r 



Resultin 
Indicato 
01-99 

Plus 

Minus 

Zero 
Compare 
operatio 

High 

Low 

Equal 
lokup 

operati 
High 
Low 
Equal 



g 

rs 



n 



on 



Where Located 



1P (First Page) 



Calculation 
form 



Internal 



+ 



Input form 
columns 19-20 



H- 1" : 

IWhere Osed|Turned On 

__| + ; 

| Indicatorsl when specified 
I (calc), | record has been 
|0utput | read and before 
|Indicators| total calculations 
|Field- | are executed 
IRecord I 
JHelation | 

-I + 



Turned Off 



jlndicators| by a positive bal- 
| (calc.)r lance in field, by 
| Output | a negative balance 
| Indicatorsl in field, by Zero 



I 



| balance in field 
| if Factor 1>Factor2 
| if Factor<Factor2 
| if Factor=Factor2 

I 
I 
I 
I 
I 

I if 
I if 
I if 
-+ 



table 
table 



Factorl 
Factorl 



table=Factor1 



|Output I at beginning of 
(Indicatorsl processing before 
I I any input records 

I | are read 



Dotes 



before the next 
record is read 
during the next 
processing cycle 



the next time a 
calculation is 
performed for which 
the program speci- 
fies the indicator 
as a resulting 
indicator and the 
specified condition 
is not satisfied 



before the first 
detail card is read 



Note 1 



Note 1 



Note 4 



Note 1. Turning indicators o 
operation codes. 

Note 2» All control level in 

Note 3. The OF indicator re 
put cycles. 

Note 4. This indicator is us 



or off can also be accomplished by using SETON and SETOF 



dicators (L1-9) are also turned 
ains on during the following de 



on when LE is turned on. 
tail calculations and out- 



ed to condition printing of the first page of the report. 
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INDEX 



ADD (add) 7 8 

Adding and subtracting, example 13 

Adding records to an IS file 155 

file description specs. 116 

output-format specs. 99 
Address output option — see type of 

file organization 
Alphabetic 

characters 10 

entries, input spec. 48.1 
Alphameric 

entries, extension spec. 120 

fields 10 

literals 10, 73, 109 
Alternating tables 12 3 
Ampersand (&) in edit words 110 
AND-relationship 55, 101, 211, 218 
Arguments, tables 124 
Arithmetic operations 7 8 
Asterisk protection 111 
Automatic skipping 42, 100 

BEGSR (Begin RPG Subroutine) 90 

Blank after 109, 220 

Blank indicators 67 

Block length, file description 

spec. 114, 213 
Blocked format, file description 

spec. 114, 214 
Blocking records 14 8 
Branch and exit operations 89 
Branch (GOTO) 89 



Calculating fields 
Calculation speeifi 
95, 132, 202, 21 
Calculations, total 
Calculation, total 
Card zones, testing 
Carriage overflow 
C -- character 52 
CHAIN (chain) 86, 
Chained file, file 

(C) 113 
Chained file — see 

input files 
Chaining 171 
Chaining 

fields (C1-C3) , 
fields, number o 
to a sequential 
with an RA file 
Character input spe 
Combined files, fil 

(C) 113 
Coding of subroutin 
Comments 

asterisk 48, 2 
calculation spec 
file extension s 
Common fields 46 



69, 72 
cations form 46, 69, 
0, 217 
(example) 17 
17 

(input spec.) 53 
100 

183, 184 
description spec. 

processing multiple 



input spec 66 
f the 119 
disk file 179 

184 
c. 53, 216 
e description spec. 

137 



13, 215 

77 
pec. 121 



COMP (compare) 30, 8 3 

Compare and test operations 83 

Comparing 29 

Compatability, 1130 RPG 8, 9 

Compiling 8 

Conditioning fields, calculation spec 69 

Configuration 7 

Constant data 

input spec. 5 8 

output-format spec. 109 
Constant or edit word 

output-format spec. 1-09, 220 
Control break 15, 43, 70 
Control-field holding area 59 
Control fields 

calculation spec. 69 

conditioned with 
field-record-relation indicators 66 

establishing, example 15 

input spec. 59 

rules for using 59 

, specifying 70 
Control level indicators 

calculation spec. 69 

input spec. 59 

output- format spec. 102 

zero 67 
Control levels, false 61 
Core zones, testing (input spec.) 53 
Correlation of the RPG specifications 

forms 35 
CR symbol in edit words 
Creating 

record address files 

sequential disk files 
Crossfooting 13 
Cross references 46 
Customer transaction 

programs 
C/Z/D specifications, example 12 
C/Z/D, input spec. 52 

D — digit 52 
Decimal point 

edit 111 

location 111 
Decimal position 14 

calculation spec. 75 

extension spec. 120, 216 

input spec. 58 
Definition of terms 10 
Describing 

a record and its fields, example 11 

the files 10 
Detail 

calculation 42 

printing, example 14 

record 9 8 

and total printing, example 17 
Device 116, 213, 214 
Direct access storage device (DASD) 115 



111 

158 
152 



see sample 



Index 
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Disk storage concepts 151 

DIV (divide) 79 

Division, multiplication and 

Dollar sign 110 

Duplicate identification 55 



31, 79 



EBCD.IC 10, 54, 84 

Edit 110, 150 

Edit codes 10 8, 109 

Edit words 110 

Edit words, rules for forming 110 

End-of-file, file description 

spec. 113, 213 
End position in output record 109 
ENDSR (End RPG subroutine) 91 
Entries in the operation field 78 
Equal 75 

Exception records 9 8 

EXCPT (Output records during calculations) 92 
Exit 

operation 135 

format 135 

to a subroutine 91, 135 

to a translate subroutine 170 
EXSR (transfer to subroutine) 90 
Extension code (E) 116, 214 
Extension specifications form 46, 119, 132, 

215 

Factor 1 73 
Factor 2 73 
Field description entries 

input spec. 55 

output-format spec. 97, 10 3 
Field indicators 

calculation spec. 70 

input spec. 6 7 

output- format spec. 102 
Field 

conditioned by overflow 101 

length, calculation spec. 74 

location, input spec. 56 
Field name 

calculation spec. 72 

input spec. 58 

output- format spec. 105 
Field-record relation 66 
Field-record relation, using split 

control fields with 60 
File addition 116, 214 
File description specification form 36, 46, 

112, 132, 201, 203, 207, 210 
File description specifications, 

entries on the (example) 116 
File designation, file description 

spec. 113, 214 
File format, file description 

spec. 114, 214 
File identification and control, 

output-format spec. 97, 9 8 
Filename 

file description 112, 213 

extension spec. 214 

input spec. 48 
output- format spec. 9 8 
File organization 151 
File organization, type of 115, 214 



File processing 151 

File processing, mode of 114 

File type, file description spec. 112, 213 

Files, maximum number permitted 112 

First-page indicator 37 

output- format spec. 102 
Fixed dollar sign 110 
Fixed- length format 213 
Floating dollar sign 110 
Flowchart of an RPG object program 38 
Form type 4 8, 213 
Format of 

an edit word 110 

GOTO 89 

LOKUP 86, 126 

TAG 89 
From 

input spec. 56 
From filename 

file extension spec. 119 
Function of RPG 7 
Function, table 12 3 
Fundamentals of RPG programming 10 

Generating 7 

Group indicators, example 21 
Group printing, example 19 
GOTO, format of 89 

Half-adjust 75 

Halt indicators 4 3, 6 7 

calculation spec. 71 

input spec. 6 7 

output-format spec. 102 
H/D/T/E type 98 
Heading lines — see sequence of 

specifications 
Heading records 9 8 
Hexadecimal 10 
High 75 

Holding area, control-field 59 
Holding area, tables 126 

Identifying codes 52 
Indexed-sequential file 

organization 86, 115, 150 
Indicator 

chart 225 

codes available 67 

codes for plus, minus, and zero or 
blank 6 7 

definition in an exit routine 136 
Indicators 

calculation spec. 69 

control-level 71, 102 

field 102 

first page 37, 102 

halt 43, 67, 102 

input spec. 66 

last record 70 

level-zero 70 

matching record 102 

numeric 6 7 

output- format spec. 101 

overflow 100, 102, 115 

resulting 102 

summary of 225 
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Input files 

file description spec. (I) 112 

input spec. 4 8 

processing multiple 160 
Input specifications form 36, 46 „ 48, 132, 

200, 202, 207, 210 
Invoice billing — see example programs 
ISAM (indexed sequential access method) 151 

Key 152 
Key field 

length of 114, 214 

starting location 115, 214 

L0 indicator 70, 102 

Last-record indicator 70 

Layout of lines and fields (printer) 45 

Length of 

data records 14 8 

keyfield 114, 214 

record address field 114, 214 

table entry 120, 215 
Level-zero indicator 70, 102 
Line 

identification code 45 

number 48, 213 
Literals 

calculation spec. 73 

output- format spec. 109 
Logic flow charts 39 
LOKUP (table lookup) 86, 126 
Low 75 
LR indicator 70 

Machine requirements 7 

Machine units and features supported 

program generation 7 

processing of object program 7 
Master index 153 
Match fields 162 

numeric 149 
Matching 162 

Matching-field holding area 64 
Match-field indicators 64 
Matching fields, input spec. 64 
Matching- record indicator 162, 167 

calculation spec. 71 

output-format spec. 102 
Matching technique, order of 

processing records using the 162 
Maximum length 

alphameric fields 74 

numeric fields 74 
Maximum number of files 112 
Methods of processing tables 126 
MHHZO (move high-to-high zone) 82 
MHLZO (move high-to-low zone) 82 
Minus condition 6 7 

Minus condition, testing for a 75, 27, 28 
MLHZO (move low-to-high zone) 82 
MLLZO (move low- to- low zone) 83 
Mode of file processing 114 
MOVE (move) 80 
Move operation 80 
MOVEL (move left) 81 
Move zone 82 
MULT (multiply) 79 



Multiplying and dividing, example 31 
Multiple file processing, 

summary of 190 

without matching 171 
Multiple input files, processing 161 
Multiple printers 101 
MVR (move remainder) 79 

Negative condition 75 
Not 

input-spec. 52 

output- format spec. 102 
Number 

input spec. 4 9 

of the chaining field 119, 214 

of table entries 120 

specification (N) 49 
Numeric 

characters 10 

decimal position 120 

entries, file extension spec. 121 

entries, (sequence), input spec. 49 

fields 10 

indicators 67 

literals, calculation spec. 73 

literals 10, 73 

Object programs 

using tables in 123 
Object run 7, 8 
OF indicator 71, 100, 102 
Omitting record identification 55 
Operation 74, 78 

Operation field, entries in the 78 
Option (O) , input spec. 51 
Optional, input spec. 51 
Order of processing records using the 

matching technique 162 
OR- relationship 55, 60, 102 
OR-relationship, records in an 57 
Output- format specifications form 36, 

46, 97, 204, 208, 211 
Output indicators 101, 102, 103 
Output files, file description spec. 

(O) 112 
Output units, specifying 9 8 
OV indicator 71, 100, 102 
Overflow areas 154 
Overflow indicator 

calculation spec. 71 

output- format spec. 100, 102 
Overflow lines 101 

Overflow lines, printing of 20, 43, 100 
Overflow printing, example 21 



214 



Packed (P) 

extension spec. 120, 

input spec. 56, 60 

output- format spec. 109 
Page number 46, 213 
Page numbering 107 
Plus condition 6 7 
Position, input spec. 52 
Primary file, file description spec. 

(P) 113 
Primary files 162 
Printer spacing chart 4 4 
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Printing, group 19 

Printing overflow lines 20, 43, 100 

Problem definition 4 3 

Processing 

IS files 152 

multiple input files 161 

limits of an indexed sequential 
organization 152, 186 

sequential disk files 151, 152 
Processing tables, methods of 126 
Program documentation 144 
Program identification 4 7 
Program logic 37 

Program logic, significance of 43 
Providing a name for GOTO (TAG) 89 

RA file, file description spec. (R) 113 
Random 

processing 156 

processing of indexed-sequential 
organization 151 
Randomly, processing multiple input 

files 171 
Record address, type of 114, 214 
Record address field 114 
Record address file 114 
Record address files — see processing 

multiple input files 
Record identification codes, input 

spec. 52, 54 
Record identification entries 

example 52 

input spec. 4 8 
Record identifying indicator 51, 102 
Record 

length 114, 213 
Records in an AND-relationship 55, 101 
Records in an OR- relationship 57, 102 
Records to be added (ADD) 78 
Record type, undetermined 55 
Required machine features 7 
Result field 74 
Resulting indicators 

calculation spec. 71, 75 

input spec. 51 

output- format spec. 102 

use of 51 
Retrieving updated tables 129, 132 
RLABL (RPG label) 91 
RPG control card 221 
RPG logic flow 38 
RPG specifications forms 35, 46 

general information 4 6 

common fields 4 6 
Rules 

for creating records containing table 
data 124 

for forming an edit word 110 

for forming tables 124 

for using control fields 59 

for using matching fields 64 

Sample programs 192 

Secondary file, file description spec. 

(S) 113 
Secondary files 162 
Sectors for IS file 155 



Sequence 

checking, example 34 

file description spec. 114, 213 

extension spec. 120, 214 

input spec. 4 8 

link field 154 

of different record types, example 

of specifications 97, 99 

record 119 
Sequential 

file organization 86, 15.1 

processing 156 

processing of multiple input files 
SETOF (set indicator off) 85 
SETON (set indicator on) 85 
Sign Control 14 9 

Significance of program logic 43 
Skip 100 
Space 99 

Special characters 10 
Specifying constants 109 
Split 

chaining fields 186 

control fields 60 
SR (subroutine identification) 70 
Stacker select 

input spec. 55 

output- format spec. 99 
Status portion 110 
Sterling reference 

calculation specifications 224 

control card 224 

input spec. 68, 223 

output-format spec. Ill, 223 
Storage requirements 7 
Subroutines 135 
Subroutines, coding of 137 
SUB (subtract) 79 
Subtracting, adding and 13 
Supported machine features 7 
Summary of 

program indicators 225 

RPG specifications forms 214 

IS organization 161 
Summary punching, example 23 
Symbolic device 116, 214 
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Table 

entries per record, number of 
entries per file, number of 
entries per table, number of 
file, file description spec, 
holding area 126 
lookup 86, 126 
name 120, 215 
operations 86 

Tables, 

example of using 12 8 
methods of processing 126 
retrieving updated 12 8, 132 
rules for forming 124 

TAG (Providing a name for GOTO) 

TAG specifications 89, 136 

Terms — see definition 

Testing card zones, input spec. 

Testing core zones, input spec. 



120, 215 
120 

120, 215 
(T) 113 
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Testing to determine a zero, positive, 

or negative condition of the field 

status 26 
Testing fields, calculation spec. 
TESTZ (test zone) 84 
To, input spec. 56 
To filename, file extension spec. 
Total 

calculations, example 17 

calculations 17 

printing, detail and (example) 

records 9 8 
Testing the result field of a 

calculation 75 
Turning indicators on or off 66 
Type H/D/T/E 98 
Type of 

file organization 115, 214 

record addresses 114 



69, 75 
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Types of data records 149 



Unblocked records 149 

Update files, file description spec. (U) 

Updated tables, retrieving 12 8, 132 

Updating tables 126 

Using 

RPG 7 

tables in the object program 123 



Z-ADD (zero and add) 78 
Zero or blank condition 6 7 
Zero in edit words 110 
Zero indicator 6 7 
Zero suppress 108, 110 
Z-SUB (zero and subtract) 79 
Z — zone 52 
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